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BASEHENT INVADERS 
by Eeorge Pascetto 

Editeri note: TWi prograa Ma givi out by beorge as part of bit Intoduction to Extended BASIC course. If you'd like to learn 
•ore contact 6eorgt at 332-340? about bit next scheduled count of firings. Hatch those roachei!! 

100 DATA In BASEKNT INVADERS you, wit wipe out tht roachea, that art attacking you.,, You tovi your nozzle 
«ith,tht S and D keys and f irt 

110 DATA with 0.,, CAUTION! If you fire five,tiNi without a hit--you,lose pressure and aust,start again. 
120 CALL CLEAR tt FOR X>3 TO 14 n READ Bt ti DISPLAY ATU,3)iBt it NEXT X 
130 DISPLAY AT(22,S)i'PRESS ENTER»* n ACCEPT AT(22,18)tB$ 
140 CALL SCREENUSht OPTION BASE 1 it 0IN B(9),DU0) 

150 CALL CHAR(136,'180COC1B3060603% 128,'FFFFFFFF7E3C1818', 34, '4324221 18D8268 19' it CALL COLUMN,?,!) 
160 At ( t ) • " A I BBJRA 1 0BJRA 1 0MRAIBBJRAI 0* it CALL CUAR it E*2 

170 CALL ^(5,1,1,6,1,1,7,1,1)11 Cl«'817E!8FF3CFF187E24??7Ei8FF187E99' ti CAL L CHAR<65,CI,73,CI,81,M) 
180 OU tt F«5 tt N«2 tt CALL SPRITES 1,128, 16, 2, 121) 

190 FOR 6»1 TO E it FOR V«-l TD 1 STEP 2 tt PRINT A$(N+V)ti CALL S0WttM5,-2,0)ii R«R*i it IF R-H»23 THEN 350 
aSE60SU8 220 

200 FOR I«6-V TO 6 STEP V it CALL UURfl,!,!,!*.!!, Ihi CALL SOUND (5,-2*V,0) it F«I*V-5 it 60SUB 220 

210 NEXT I it NEXT V it NEXT 6 it N«3 it GOTO 190 

220 FOft T*0 TO 2 tt CALL KEY(1,K,8) 

230 IF »18 THEN 240 ELSE J«(K«2)-(IC»3)ii GOTO 280 

240 K«INT(C/3)ii IF B(N)'E THEN 300 ELSE L«24*B(N)I2-R it IF L>24 THEN L*24 

250 CALL VCHARl^K^L-Hit CALL SOUND (10,880,0) it CALL VCHAR(2,C,32,L-2)tt H» IH1 it IF H«6 THEN 350 

260 IF <C<>W3*F)MINT(R/2)«8(N>)THEN 300 ELSE CALL KCKAR(L,NI3, 32,3) it B(N)*B(N )*1 n D(B(N))*D(B(N))+1 s: 

CALL 60UND(10|990,0) 

270 H*0 tt IF D(B(N))<9 THEN 300 ELSE H»H*2 tt IF H«E$2 THEN 310 aSE 300 
280 IF J«0 THEN 300 ELSE MM it IF C«2 THEN 029 ELSE IF C«30 THEN C«3 
290 CALL L0CATE(ll,2,Cl8-7)ii CALL S0UND(10,22O,0) 
300 «XT T it RETURN 

310 DISPLAY AT(20,5)i'Y0U NIN LEVEL '|E/2|'«- it E«E*2 tt IF E<10 THEN 370 aSE DISPLAY AT (22,2) i 'AGAIN PRESS 1, 
END*2." 1 

320 CALL NEY(0,lt,S)ii IF <K<49)*(IC>50)THEN 320 ON K-48 SOTO 390.330 
330 PRINT I i i« BYE BYE. 'i t i 
340 END 

350 CALL CLEAR 

360 PRINT i i i i i i i i -YOU L0SE. a i t t i i i 
370 PRINT ' PRESS ANY KEY.' 

380 N»0 it CALL KEY(0,K,S)tt IF 8-0 THEN 380 aSE CALL CLEAR it CALL S0UND(10,-1 ,0) 
390 FOR X-l TO 9 it 8(X)*0 tt NEXT X tt FOR X»l TO 10 it D(X)«0 si NEXT X 
400 L,H,R,N,F«0 it CALL COL0R(5, 1,1,6,1,1,7,1,1,8,1,1)11 6OT0 1B0 
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VIDEOTAPE FILES 



By Max Hyde 



Here is a prograi that Mill 



For those who have VCR's and a library of tapes, soie lethod of cataloging is needed, 
satisfy iany of your needs, especially if you have printing facilities. 

A discussion of the prograi lay save you probleis later, even though the instructions are in the prograi. First, 
write, of -load- the listed prograt into your console. Notice first, line 180. Since I use a serial connected printer, 
I've written the prograi for this option. If you "LOAD" the prograi froi cassette or disk, EDIT this line (if needed) to 

•atch your option - 'PIQ", or whatever. 

Line 190 - you can list your 'Titles' anyway you like, not necessarily as shown in ey exaaple, you lay want to show 
•Control Index" as well. You are liiited to the usual 4 lines per entry. The reason I've specified "3 spaces" in the 
exaiple (you can use any nueber as a separator) is because to "search", "change", or "delete", a title - IT WIST BE TYPED 
EXACTLY as listed, or it will not show up. 

Line 220 explains use of line 480. As written, it puts 4 titles on the lonitqr each tue. Change line 480 as desired. 
Since all of ey titles are "one liners", I use 4 titles on the screen at a Use. If you opt to lake this greater, the upper 
titles will scrool off the screen. ^ . 

Line 280 - This liiits the nwber of titles on any one given listing. I have shown 300, but frankly I don t know if 
this is true. Naturally shorter titles will extend this but it will vary with systei configuration. 

Now LOAD the prograi and RUN. An option screen will alloii you to select instructions or not. Press C to continue and 

thB "(EDITORS^^ of instructions is available on request. The instructions were just to lengthy to print 

in the newsletter since I try to laintain a 12 page iax for postage reasons.) 



100 CALL CLEAR 

110 PRINT " VIDEODISC 

FILE ": : : 

120 PRINT " BY HAX HY 

DE "::::::: : : : 

130 PRINT 'NEED INSTRUCTIONS 

? (Y/N)" 

140 CALL KEY(0,K,S) 
ISO IF S=0 THEN 140 
160 IF K08? THEN 280 
170 CALL CLEAR 

180 PRINT "PRINT OPTION IS S 
ET AS "SERIAL" RS232.BA*60 
0. CHANGE LINE 300, IF YO 
UR DEVICE IS DIFFERENT.": : 
190 PRINT "TO ENTER YOUR TAP 
ES, LIST TITLE , 3 SPACES 
, DISCI, 3 SPACES, THEN TIME 
(OR INDEX)': : 

200 PRINT " KEEP I QF SPACES 

UNIFORN. WHEN SEARCHIN6 OR 

DELETING, TYPE TITLE EXACT 

, INCLUDING SPACES": : 

210 PRINT •EXAMPLE VKOJA 

K Dll 1:30": : 

220 PRINT 'TO CHANGE LENGTH 

OF VIEWED TITLES AT ONE TIN 

E, CHANGE LINE 480": : 

230 PRINT "PRESS C TO CONTIN 

UE" 

240 CALL KEY(0,K,S) 
250 IF K«67 THEN 280 



260 IF K<>67 THEN 240 
270 IF S»0 THEN 240 
280 DIN Tf (300) 
290 CALL CLEAR 
300 0t«"RS232.BA«600 a 
310 HI*" PLEASE NAIT.. 
. THE PRINTER IS HORN 
INS* 

320 CALL CLEAR 

330 PRINT 1 HAM UBE 

X": I I I 

340 PRINT "PRESS TO's I : 

350 PRINT • 1 ■ VIEN TITL 

ESV 2 " SEARCH FOR A II 

TLEV 3 • ADO TITLES':' 

4 * CHANGE TITLES" 

360 PRINT ■ 3 « DELETE TI 

TLESV 6 ' ALPHABETIZE L 

1ST":" 7 • SAVE TITLE FIL 

EV 8 s LOAD TITLE FILE" 

370 PRINT " 9 • PRINT TIT 

LESV 10 a FINISH SESSION 

": : i : 

380 INPUT V 

390 IF V)10 THEN 380 

400 IF V<1 THEN 380 

410 CALL CLEAR 

420 ON V 60SUB 440,970,740,9 

50,1260,1420,1680,1760,1910, 

2040 

430 60TO 320 
440 T«0 



450 FOR M TO N 
460 T*M 

470 PRINT T$il)i I i 
480 IF T<4 THEN 540 
490 PRINT l t 

500 PRINT • IWES3 ENTER TO 

CONTINUEtV flT.ENTER FO 

R RAIN IKDEXI't I 

510 INPUT Al 

520 If ••••T THEN 560 

530 T«0 

540 NEXT I 

550 INPUT MEND FI 
LEI IPRESS ENTER TO 
COKTINUEriXt 
560 RETURN 

570 INPUT "TITLE? "iNI 
580 FOR I«l TO N 
590 IF WHOM THEN 700 
600 PRINT ill" 18 THE TIT 
LEi'i i" "|TI(Hi I 
610 INPUT ■ (Y/N)?"»XI 
620 IF Xt«"N" THEN 700 
630 PRINT : : iWHi : i 
640 INPUT " DO YOU WISH TO 
PRINT A LIST? (Y/N)":L» 

650 IF LIO"Y" THEN 670 

660 60SUB 2000 

670 INPUT 'SEARCH KQRE TITLE 

S? (Y/N)":S$ 

680 IF SI»'Y" THEN 570 

690 GOTO 730 
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700 NEXT I 


FOR:":' "jTI(R): : 




710 PRINT : : THE "jNI:" 


1140 INPUT " (Y/N)?':YI 


1660 TIU)=NI 


YOU ARE SEARCH I N6 FOR":" 


1150 IF YIO'N" THEN 1030 


1670 RETURN 


IS NOT IN THIS FILE.': : : 


1160 PRINT : i : "CHANGE DATA 


1680 GOSUB 1670 


720 60T0 670 


FOR OTHER TITLES?": : : 


1690 OPEN ll:FI,INTERNAL,OUT 


730 RETURN 


1170 INPUT " (Y/N)":CI 


PUT.FIXED 150 


740 A*N+1 


1 « rtA PAi f Mi 

1180 CALL CLEAR 


1700 PRINT «1:N 


750 FOR I*A TO 300 


1190 IF CIO N" THEN 950 


1710 FOR 1=1 TO N 


760 CALL CLEAR 


t AAA A^TItfttl 

1200 RETURN 


1720 PRINT ll:TI(IJ 


770 PRINT : : : : 'ENTER DATA 


4 A t A AIP*l4V •% 

1210 NEXT C 


1730 NEXT I 


j •;■#•;!;• (HAX:300)": : : 


4 AAA hPffllAll 

1220 RETURN 


1740 CLOSE 11 


780 PRINT ■ TITLE :" 


1230 PRINT "TITLE HAS:": :TI 


1750 RETURN 


790 INPUT Till) 


(R): : :NI 


1760 60SUB 1870 


800 V*I 


1240 INPUT TI(R) 


1770 OPEN 11 :FI, INTERNAL, INP 


810 CALL CLEAR 


1250 RETURN 


UT , FIXED 150 


820 PRINT "ENTRY'j'I'jV: t : 


1260 INPUT "TITLE? ":NI 


1780 INPUT ll:N 


830 PRINT "YOU ENTERED:": :" 


1270 FOR 1*1 TO N 


1790 FOR 1*1 TO N 


":TI(V) 


1280 IF TKDONI THEN 1380 


1800 INPUT tltTKI) 


840 INPUT "CHANGE ANYTHING? 


1290 PRINT t t :"IS Tl€ TITL 


1810 NEXT I 


(Y/N)":CI 


E:V "jTimi i 


1820 CLOSE 11 


850 IF CIO'Y" THEN 890 


1300 INPUT • (Y/N)?"iYI 


1830 CALL CLEAR 


860 C'N+1 


1310 IF YIO'Y" THEN 1380 


1B40 PRINT ' 'jFli i" THIS 


870 CALL CLEAR 


1320 A*I 


FILE HAS'jNj "ENTRIES. ": :" 


880 EOSUB 1030 


1330 FOR D*A TO N 


1300 ENTRIES IS RAXINUHI": 


890 INPUT "ADD HORE TITLES? 


1340 TI(D)=TI(0+1) 


»:::::::: 


(Y/N)":A$ 


1350 NEXT D 


1850 INPUT " IPRESS ENTER TO 


900 N=N*1 


1360 N*N-1 


C0NTINUEI":XI 


910 IF AI»"N" THEN 940 


1370 60T0 1390 


1860 RETURN 


920 NEXT I 


1380 NEXT I 


1B70 PRINT " NHAT IS THE 


930 INPUT " IDATA FILE IS 


1390 INPUT 'BORE DELETIONS? 


NANE OF":" YOUR STORAGE 


FULL! IPRESS ENTER TO 


(Y/N)":DI 


DEVICE?": i 


CONTINUE!":E$ 


1400 IF DI«"Y" THEN 1260 


1880 PRINT " DON'T F0R6E 


940 RETURN 


1410 RETURN 


T DSK1.V IN THE FILE N 


950 PRINT " TITLE TO BE CHA 


1420 PRINT " PLEASE HA : 


AKE": ::::::::::: 


N6ED:": : t : 


IT...": : i" THE LIST IS BEI 


1890 INPUT Fl 


960 INPUT CI 


NG ARRANGED": ::::::: 


1900 RETURN 


970 CALL CLEAR 


• • 


1910 PRINT "PRESS "P" TO P 


980 FOR C*l TO N+l 


1430 B'l 


RINT": ii 


990 IF TI(C)»CI THEN 1000 EL 


1440 B*2I8 


1920 CALL KEY(0,K,S) 


SE 1210 


1450 IF B<«N THEN 1440 


1930 IF KOBO THEN 1920 


1000 PRINT "IS THE TITLE: "i" 


1460 B*INT(B/2) 


1940 IF S*0 THEN 1920 


";T$(0: : 


1470 IF B*0 THEN 1600 


1950 PRINT ::::::::: 


1010 INPUT " (Y/N)?":E$ 


1480 FOR Y«l TO N-B 


» : :NI: : : : : i : : : : 


1020 IF EI*"Y" THEN 1030 ELS 


1490 X«Y 


1960 FOR 1*1 TO N 


E 1210 


1500 I»X*B 


1970 60SUB 2000 


1030 PRINT :::::: :"PRE 


1510 IF TI(X)aTIU)THEN 1570 


1980 NEXT I 


SS TO CHANGE*: : 


1520 IF TMXKTKDTHEN 1580 


1990 RETURN 


1040 PRINT " 1 = TITLE": 


1530 GOSUB 1640 


2000 OPEN 12:01 


:' 2 * NO CHAN6E": : 


1540 X*X-B 


2010 PRINT t2:TAB(5);TIU) 


1050 R=C 


1550 IF l>0 THEN 1500 


2020 CLOSE 12 


1060 N$*" t ENTER THE NEW DA 


1560 60T0 1580 




TA:" 


1570 GOSUB 1610 


2030 RETURN 




1580 NEXT Y 


2040 INPUT " DO YOU HI 


4 A^A tkinnv at 

1070 INPUT P 


1590 GOTO 1460 


SH TO TERMINATE THI 


1 AAA MAI t Ai mAPK 

1080 CALL CLEAR 


1600 RETURN 


S SESSION? (Y/N)':XI2050 


1090 IF P<1 THEN 1070 


1610 IF TKXXTKDTHEN 1630 


CALL CLEAR 


1100 IF P>2 THEN 1070 


1620 GOSUB 1640 


2060 IF XIO'Y" THEN 320 


1110 IF P*2 THEN 1160 


1630 RETURN 


2070 STOP 


1120 UN r 6QSUB 1230 


1640 NI'TMX) 




1130 PRINT : :'H0RE CHANGES 


1650 TI(X)*TI(I) 
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\\\\\\\\ 
X EASY LOADER X 
X by CAVE HAN X 
XXXXXXXX 

Where oh where did the CAVE HAN go? 
And vhat ever happened to the dbasic? 
Here I at, but it's gonna take Be a bit 
of a while to docuient beyond the linked 
list. In the iieantiie I thought we eight 
enjoy a little X-BASIC. Ve vill use the 
Rost deadly combination of stateients 
known as PEEK and POKE. Ve will also see 
how both BASICS store the actual code we 
enter. 

This episode becaie necessary cause - 
TI left us with a bit of a tystery. In 
X-3ASIC, we can use RUN "DSK1.NAHE", but 
(while As:"OSKl.NAHE') you cant use RUN 
At. Every once. in awhile i com across 
a prograi that has overcoat the problee, 
The REHarks give no clue how they do it, 
but it always uses RUN "DSK1. 0123456789* 
as the last stateient in the prograi. It 
also uses CALL LOAD stateients to place 
soiething into aeiory. Aned with this 
inforiation , i assuied it was loading 
the prograi naie into the '0123456789*. 
But where was that string, and how do we 
find it? The answer is staple, because 
the systei keeps track of where it is 
with a pointer. To explain this pointer 
, we have to look at the way the systei 
stores our prograts in leiory. 

Both BASIC'S store code in three 
independent pieces. They are, the Line 
Nuiber Table, the Nuieric Value Table, 
and the Prograi Code. Given the chance, 
the X-BASIC systei will store tost of 
this in the expanded 32k of eeiory, so 
this prograi assutes the 32k ii present, 
and will probably not work without it. 
Vhen the prograi is running, it uses the 
Line Nuiber Table to see which line to 
execute next. The table lists the line 
nuibers, with a pointer to the address 
of the code for that line. Vhen it is 
done executing that code, it returns to 
the table, to look up the next chunk of 
code. All variables, and arrays are 
stored in the Nuieric Value Table. 

The values in the Nuieric value Table 
are pointed to by entries in the Sytbol 
Table, which is . located in VDP rai and 
pointed to by >833E (-31863). This area 
contains nuibers in RAOIX 100 notation. 
Luckily, we dont have to use this area. 



The address of the Line Nuiber Table 
is pointed to by >8330(-31952), with the 
table end pointed to by )8332 (-31950). 
While the prograi is running, address 
)332E (-31954) points to the line nuiber 
currently being referenced. The fonat 
of the Line Nuiber Table has 2 bytes to 
represent the line nuiber, followed by 2 
bytes for the address of the code for 
that line nuiber. Ve will be PEEKing in 
this area for directions. 

Finally we have the Prograi Space. 
It- starts at the location pointed to by 
)8332 (-31950). The fonat of the code 
in this area is, one byte for the length 
of the line, followed by the bytes of 
code, followed by the last byte as )00. 
Ve're. gonna POKE stuff into this area 
with CALL LOAD. 

In TI BASICS, reserved words are 
stored as one byte tokens with a deciial 
value greater than 127. A coiplete list 
of these tokens can be found in the 
C0HPUTER BRIDGE (July/Aug 1985, pg 17 ), 
These tokens are used by the systei as 
coiiands, with the rest of the stateient 
occupied with data. Oata takes several 
for as. For exaiple a quoted string is 
stored as, 200(the token for open quote) 
, one byte of string length, the string 
characters (with no closing quote). The 
next byte will be lore data, or another 
token, or a zero(0), which indicates it 
is the end of the stateient. 

Now we can take a look at how our 
prograi is gonna use these areas. The 
first step is to catalog the disk, and 
list the BASIC type prograis. The files 
' with a file type of 5 are stored in an 
array, B$. Then we PEEK into -31950 to 
find the start of the code of the last 
line. The code is stored in the order 
it is entered, so the last line entered 
will be the one pointed to by -31950. 

I tried substituting just the 
naie of the prograi into the string of 
•0SK1. 0123456789', but wound up with 
syntax errors. It seeied that the surest 
policy was to rebuild the entire line. 
Line 70 is rebuilt by the prograi using 
the following characters. A length byte 
of 9 plus the length of the prograi naie 
string. The token for RUN, which is 169. 
The token for a quoted string, which is 
199. The length of the prograi naie + 5 
(for 0SK1.) The string 'DSK1.' followed 
by the prograi naie, followed with zero. 



The code was kept to a liniiui, in 
hopes of darifing the essentials. Line 
10 clears the screen, sets up B$ to hold 
the nanes of the files to be loaded froi 
the disk, and opens a file naied "0SK1." 
recognizes it as being a disk directory. 
Then it inputs a string and three values 
to ttove the record pointer up to read 
the first file on the disk. Finally we 
set R:l, and start a F0R-NEXT loop of Y 
to load B$ with the prograi naies to RUN 
Lines 20 to 30 cotipletes the loop of 
Y. The only values needed by the routine 
, are the prograi naie, and the filetype 
and the filetype is put into A. Ve then 
read two aore values into Z to love the 
pointer to the start of next record. If 
the length of B$(R) is equal to zero, we 
have run out of records, and GOTO line 
40 because our list is coiplete. If we 
we still have records to read, we check 
A for a filetype of 5. If A: 5, we have 
the naie of a BASIC type prograi file in 
B$(R), so it is displayed on the screen, 
along with the present value of R to be 
selected by it's nuiber). Since we want 
to keep this naie, we add 1 to R. This 
vill count the naies in B$, coipletely 
seperat* of the value of Y. If A is not 
equal to 5, we discard that record by 
dropping down to line 30 and repeat Y's 
F0R-NEXT loop. 

Line 40 is the exit routine for our 
Y loop. It closes the directory file, 
proits the selection of Y, which is the 
nuiber of the prograi to run froi the 
list. Next we peek into -31950 to see 
where the last line in our prograi is at 
in eeiory. Since we have two bytes in A 
and B, ve convert thei into one value 
with A:A 6 +B. This nuiber has to be 
inverted to adjust for two's coipleient 
arithsetic, so we subtract 65535. (it 
should be 65536 but i added a -1 to skip 
over the code length byte. 

To avoid repeated calculation of the 
length of 81, line 50 sets LN equal to 
the length just once. Then we can start 
building the line of code starting at 
the location ve have in A. The breakdown 
of the bytes being loaded are: 



1.3+LN-total length of the couand line 
2.169 -code token for RUN 
3.199 -code token for " (open quote) 
4.LN+5-length of string (S^OSKl.') 
5.68 -character for letter '0" 
6.83 -character for letter '$' 
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7.75 -character for letter 'K' 
8.49 -character for letter '1" 
9.46 -character for letter V 

The characters of the prograa naae 
are loaded by line 60 by transferring 
thea directly froa the screen vith GCHAR 
to our nev line of code vith CALL LOAD 
within a FOR-NEXT loop. After the loop 
ends, a zero is added to the end. 

At this tiae in the running of the 
prograa, line 70 no longer looks like it 
does nov. If we were to select "LOAD" 
froi the list of prograas, line 70 would 
contain the following deciiial bytes: 
13,169,199,9,68,83,75,49,46,76,79,65,68 
Which translates to: RUN"DSK1.L0A0*. The 
REM stateient at line 70 is only needed 
to reserve space for the code that is 
going to be placed there. This prograi 
can be eodified and still work only if 
line 70 is re-entered last. A quick way 
to do this is type 70, then fctn X, then 
ENTER, then REDO. Press ENTER once lore 
and the line has been re-entered. It is 
now the last line of code in the Prograi 
Space, and pointed to by -31950. If you 
do not re-enter the line, the new RUN 
stateaent will be written into the last 
line entered, (crash!) 

I hope you have enjoyed this little 
side trip, and found it useful, not only 
in loading unknown prograis, but also in 
a stepping stone into soae of the hidden 
systems buried under the cover of one 
of the worlds best hoae coaputers. Any 
questions or coaaents about this series 
or suggestions for future articles are 
welcoae and could be addressed to either 

St. Louis 99ers CAVE HAN 
P.O. BOX 260326 2848 Ohio 
CRESTVOOD, NO. St. Louis, No. 

And dont forget to share and enjoy. 



***************** 

* * 

* NOW YOU CAN * 

* * 

* MAKE YOUR OWN * 

* * 

* CUSTOM LABELS * 

* \ * 
* > * 

* / * 

***************** 
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X EASY LOADER X 
X PROGRAM I 

mmmmm 

10 CALL CLEAR :: CALL INIT : 
: DIN B$(127):: OPEN llJ'OSK 
1.', INPUT , INTERNAL, RELATIVE 

:: input fi:As,x,x,x :: R:i 

:: FOR Y:l TO 127 
20 INPUT ll:B$(R),A,Z,2 :: I 
F LEN(B$(R)):0 THEN 40 ELSE 
IF ABS(A):S THEN 0ISPLAY AT( 
R,1):R|TAB(5);B$(R):: R:R*1 
30 NEXT Y 

40 CLOSE #1 :: DISPLAY AT(24 
.DESELECT ONE • :: ACCEPT 
AT(24,12):Y :: CALL PEEK(-31 
950,A,B):: A:A*256+B-6553S 
50 LN:LEN(B$(Y)):: CALL LOAD 
^,9^,169,199^+5,68,83,7 
5,49,46) 

60 FOR X:l TO LN :: CALL 6CH 
AR(Y,X+6,Z):: CALL L0A0(A+X+ 

8,Z):: next x :: call load(A 

+X+8,0) 

70 ! RE-ENTER THIS LINE LAST 

HHHHHHtH 

* LABLE MAKER * 
HHHHmmt 

THIS LITTLE PROGRAM FIRST 
APPEARED IN FAMILY COMPUTING 
MAGAZINE. PROGRAM REVISIONS 
HAVE BEEN MADE BY GIL PAULS. 
10 OIN L$(S) 
20 SP$:CHR$(32) 
30 0S$:CHR$(45) 
40 FOR 1:2 TO 30 
50 SP$:SPttCHR$(32) 
60 0St:0S$&CHR$(45) 
70 NEXT I 
80 CALL CLEAR 

90 PRINT TAB(S) ; "ALL-PURPOSE 
LABELNAKER" 
100 PRINT 

110 PRINT 'YOU CAN PRINT UP 
TO FIVE" 

120 PRINT 'LINES ON EACH LAB 
EL." 

130 PRINT 

140 PRINT 'FOR EACH LINE, TY 
PE UP TO' 

150 PRINT '30 CHARACTERS AND 
PRESS" 

160 PRINT '(ENTER); OR JUST 
PRESS' 

170 PRINT ' (ENTER) WHEN DONE 
. 

180 PRINT 
190 LN:1 

200 PRINT 'LINE #";CHR$(LN+4 

8); 



210 INPUT L$(LN) 

220 IF Ll(LN):" THEN 310 

230 IF LEN(L$(LN))(:30 THEN 

230 

240 PRINT 

250 PRINT 'THAT LINE MAS TOO 
LONG." 

260 PRINT 'PLEASE TRY AGAIN. 
■ 

270 PRINT 

280 60T0 200 

290 LN:LN+l 

300 IF LN(6 THEN 200 

310 CALL CLEAR 

320 PRINT "00 YOU WANT THE L 

ABEL(S)' 

330 PRINT ' 

340 PRINT "(C) ENTERED, OR' 
350 PRINT "(L)EFT-JUSTIFIED' 
360 CALL KEY(3,CN,S) 
370 IF (CN()67)f(CN099)+(CN 
<>76)+(CNO108):-4 THEN 360 
380 PRINT 

390 INPUT "HOU MANY LABELS? 

•:nl 

400 IF NL(1 THEN 390 
410 PRINT "WHEN YOUR PRINTER 
IS REAOY * 

420 PRINT'"PLEASE PRESS ANY 
KEY." 

430 CALL KEY(3,K,S) 
440 IF S(l THEN 430 

450 OPEN #l:"RS232/2.BA:2400 
■ 

460 FOR J:l TO NL 
470 FOR 1:1 TO 6 
480 IF KLN THEN 510 
490 PRINT #1 
500 GOTO 540 

510 IF (CN:76)+(CN:108)THEN 
530 

520 PRINT #1 :SEG$(SP$, 1,(15- 

LEN(L$(I))/2))J 

530 PRINT ll;L$(I) 

540 NEXT I 

550 NEXT J 

560 CLOSE #1 

570 CALL CLEAR 

580 PRINT -WOULD YOU LIKE TO 

a 

590 PRINT 

600 PRINT '(P>RINT THIS LABE 
L AGAIN,' 

510 PRINT '(OOHPOSE ANOTHER 
LABEL, OR" 
620 PRINT '<Q>UIT?' 
630 CALL KEY(3,K,S) 

640 IF (K:80)HK:112)THEN 31 


650 IF (K:67)+(K:99)THEN 80 
660 IF (K:8i)+(K:112):0 THEN 
630 

670 ENO 



• The 6ui of Bltck Boi * 

* 8tivi Kirmk * 

Computers are often called "black boies"» because people use then, putting data in and getting information out, without 
really knowing what's inside. In this game, you are presented with a black box, and the object is to determine what's inside, 

or oore appropriately? where. . 

The bo* is divided into an 8 by 8 grid, labelled on all four sides with 32 letters and numbers. By pressing one of the 
corresponding keys, a probe is sent into the bot at that point. Inside the box are four obstacles, each occupying one grid 
space. If the probe hits one of these obstacles head-on, it will bounce back (a 180-degree turn). If it encounters a probe in 
i grid space diagonal to it, it will deflect away at a90-degree turn. The object of the game is to determine where the four 
obstacles are by observing where each probe exits the boi. 

For examle, the left side of the boi is labelled with A through H, and the top is labelled with I through 8. If you 
press A, another A will appear next to the box at the top of the left hand side. This marks the entry point of the probe. If 
there are no obstacles in the first two rows of the box, the probe will pass straight through the top row, emerging at the top 
of the right hand side. Another A will appear there to nark the exit point. If there is an obstacle in the second row, say 
point BS for example, the obstacle will travel along the top until it gets to point A4. There will then be an obstacle next to 
the probe diagonally, so it will be deflected and shoot straight up, emerging next to the label 4 at the top. 

If there is an obstacle in the first row, the probe will turn around and exit at the same point that it entered. When 
this happens, the number or letter at the entry point will be replaced by an asterisk <*), which signifies that the entry po n 
and the exit point are the sane. An obstacle at point Bl will also cause an asterisk, since the probe will try to deflect 
upward before it even gets into the box. This obstacle will cause an asterisk at entry points A, B, and C. 

Of course, a probe may cone in contact with sore than one obstacle before it exits. It often will deflect off one 
obstacle, hit another one head-on,- come back and deflect off the first one again, and exit at the entry point. W th the right 
arrangement of obstacles, it is possible that a probe will appear to pass straight through without hitting any obstacles, when 
in fact it has deflected off of all four! u ... * MMMMn . i»t«.» a 

When you think you know where an obstacle is, press the space bar. You will be prompted "GUESS?". Enter a letter A 
through Hand a nuaber I through 8 specifying the grid space (for example, type B4 followed by the -enter- key). If you 
guessed correctly, the obstacle will appear on the box. The object is to find all four obstacles in as few moves as possible. 
If you want to give up, just type a question mark in response to the M 6UES$?" prompt, and all of the obstacles will be 

^Your' score is displayed in the upper right hand corner of the screen. Each time you fire a probe or make an INCORRECT 
guess, t is added to your score. A score of around 10 is pretty good, 5 is excellent. Some of the more tricky layouts may 

raise your score to around 20. . . . 

To get an idea of how the probes react in different situations, I suggest that you start out by taking 3 to 10 pot shots 
at the boi, then typing a question mark in response to the "GUESS?" prompt to see where the obstacles are, and following the 
path of the probes that you sent in. If the probes don't seem to be reacting the way they should, list the program and check 
for typing errors. 



COMPUTER BRIDGE (VOLUME 6, NUMBER 6, JULY /JULY 1987) PAGE 6 



***>«-==-#■= BLACK BOX PROGRAM =+= 



100 DISPLAY AT (7, 10) ERASE AL 
L: "BLACK. BOX" :: RANDOMIZE : 
: CALL MA6NIFY(2) 
110 X0=7 Y0=3 :$ NBL0CK=4 
:: DIM S$(4),B(9,9),USED(8, 
8)iBL0CK(4.1):s DEF R=INT(RN 
D*8)+l 

120 FOR 1=0 TO 4 :: READ S$( 
I):: NEXT I 

130 DATA 00000000,08080808.0 
F,F8,FF 

140 C=9t :: FOR 1=0 TO 1 
FOR K=0 TO 1 FOR J=2 TO 4 
:: CALL CHAR(C,S$(I)leS*(J)& 
SMK)):: C=C+l :: NEXT J 
NEXT K :: l€XT I 
150 CALL CHAR(C,S*(l)&S$(l)) 
:: CALL CHAR { 104» "FCFCFCFCFC 
FC) 

ISO FOR 1=1 TO 8:: CALL HCH 
AR (YO-2, X0+I+ I , 48+1 ) s : CALL 
HCMR(Y0+I+I,X0-2,64+I) 
170 CALL HCHAR(Y0+20,XO+I+I, 
72+1):: CALL HCHAR(Y0+I+I,X0 
+20,80+1):: NEXT I 
180 CALL 0UT(1,94,93,96,95): 
: FOR 1=2 TO 16 STEP 2 :: CA 
LL OUTd, 103, 32,103,103):: I 
F K16 THEN CALL OUT (1+1,100 
,93,102,101) 

190 NEXT I :: CALL OUT (17, 97 
,93,99,98) 

200 FOR 1=1 TO 8 :: FOR J=l 
TO 8 :: USED(I,J)=0 :: NEXT 
J :: NEXT I :: NTRY=-l :: 60 
SUB 550 :: NC=0 



210 FOR 1=1 TO NBLOCK :: Rl= 
R :: R2=R :: IF B(R1,R2)THEN 
210 

220 BLOCK (It 0)=R1 BLOCK (I 
,1)=R2 :: B(R1,R2)=1 :: NEXT 
I 

230 CALL KEY(0,T,S):: IF SO 
1 THEN 230 ELSE IF T=32 THEN 
390 

240 X=T-48 :: IF X>0 AND X<9 
THEN Y,DX=0 i: DY=1 :: GOTO 
280 

250 Y=T-64 :: IF Y>0 AND Y<9 
THEN X,DY=0 :: DX=1 :: GOTO 
280 

260 X=T-72 :: IF X>0 AND X<9 
T>£N Y=9 :: DX=0 :: DY=-t : 
: GOTO 280 

270 Y=T-80 :: IF Y>0 AND Y<9 
THEN X=9 :: DY=0 :: DX=-1 E 
LSE 230 

280 CALL GCHAR(YQ+Y+Y,XO+X+X 
,S):: IF S<>32 THEN 230 ELSE 
60SUB 550 

290 CALL HCHAR(Y0+Y+Y»X0*X+X 

,T):: SX=X :: SY=Y 

300 IF B(X+DX,Y+DY)OR B(X+DX 

+DY,Y+DX+DY)OR B(X+DX-DY,Y+D 

Y-DX)Tt£N GOSUB 540 :: CALL 

HCHAR(YO+Y+Y,XO+X+X,ASC("*") 

):: GOTO 230 

310 IF B(X+DX,Y+DY)THEN DX=- 
DX :: DY=-DY :: GOTO 310 
320 IF DY=-1 OR DX=-1 THEN I 
F B(X-1,Y-1)THEN DY=DY+1 :: 
DX=DX+1 



330 IF DY=-1 OR DX=1 THEN IF 
B(X+1.Y-1)THEN DY=DY+l :: D 

X=DX-1 :: GOTO 310 

340 IF DY=1 OR DX=i THEN IF 

B(X+1,Y+1)THEN DY=DY-1 :: DX 

=DX-1 :: 60T0 310 

350 IF DY=1 OR DX=-1 THEN IF 
B(X-1,Y+1)THEN DY=DY-1 :: D 

X=DX+l :: GOTO 310 

360 X=X+DX :: Y=Y+DY : : IF X 

>0 AND X<9 AND Y>0 AND Y<9 T 

HEN 310 

370 IF X=SX AND Y=SY THEN T= 
ASCr*") 

380 CALL HCHAR(YO+Y+Y,XO+X+X 
,T):: GOTO 230 

390 DISPLAY AT(24,i):"6UESS? 
" :: ACCEPT AT(24,8):X$ :: I 
F X$='T T>EN 490 aSE IF LE 
N(X$)=2 THEN 410 
400 CALL SOUND(120,220,0):: 
GOTO 450 

410 S=ASC(X$)-64 :: IF S<1 
R S>8 THEN 400 ELSE T=ASC(SE 
G$(X$,2,l))-48 :: IF T<1 OR 
T>8 THEN 400 

420 IF USED (T,S) THEN DISPLAY 
AT(24,12):"ALREADY GUESSED" 
:: GOTO 400 

430 USED(T,S)=1 :: IF B(T,S) 
THEN 460 

440 GOSUB 550 :: DISPLAY AT( 

24,12):"INC0RRECT" :: CALLS 

OUND(120,110,0) 

450 GOSUB 530 :: DISPLAY AT( 

24,1):: GOTO 230 

460 NC=NC+1 :: CALL SPRITES 

wr. ma. 7. fY<v»S+S)*fi-9, (XO+T+ 



470 IF NC<NBLOCK THEN DISPLA 
Y AT (24, 12): "CORRECT" :: CAL 
L SOUND (120, 1400,0):: GOTO 4 
50 

480 DISPLAY AT (24,1):" C 
R R E C T !" :: CALL SOUN 
0(1000,262,0,330,0,392,0):! 
GOSUB 530 :: GOTO 500 
490 FOR 1=1 TO 4 : : CALL SPR 
ITEM, 104,7, <Y0+2*BL0CK(M 
))*8-9, (X0+2*BL0CK(I,0))*8-9 
):: NEXT I :: NTRY=98 :: 60S 
UB 550 

500 DISPLAY AT(24,t) "."PRESS 
<ENTER> FOR NEW GAME" :: ACC 
EPT AT (24,28): X$ :: DISPLAY 
AT (24,1) 

510 CALL HCHAR(Y0,X0+2,32,15 
):: CALL VCHAR(Y0+2,X0,32,15 
):: CALL HCHAR(Y0+18,XO+2,32 
,15):: CALL VCHAR(Y0+2,X0+18 
,32,15) 

520 CALL DELSPRITE(ALL):: FO 
R 1=1 TO 4 :: B(BLOCI((I,0),B 
L0CK(I,1))=0 :: NEXT I :: GO 
TO 200 

530 FOR 1=1 TO 500 :: hEXT I 
:: RETURN 

540 FOR 1=1 TO 100 :: NEXT I 
:: RETURN 

550 NTRY=NTRY+t :: DISPLAY A 
T(1,26):NTRY :: RETURN 
560 SUB OUT(I,A,B,C,D):: DIS 
PLAY AT(3+I,6)SIZE(17):CHR*( 
A)fcRPT$(CHR$(B)&CHR$(C) ,7)l£ 
HR$(B)&CHR*(D):: SUBEND 
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T I N G 




by Sim ftrastk 

TIngo (or TI-Bingo) Mill print Bingo ctrdi and call iht 
cut for you. It lUrti out by. asking ho* aany cirdi it 
should print (you can rtust tht sait cirdi vhtn you play 
latir, or you can ust your ovit cards if you havt then). It 
vill print thti 4 to a pa|t. These should bt cut and glued 
or tapid to cardboard to aafct that sturdier. It takes a 
vhila to print tht cards, so |tt it starttd tarly, btfort 
you'rt actually rtady to play. Fannin or buttons can bt 
used at larktri. 

When ivtryont hai thtir cards and itrktri , prtts tht 
ENTER kiy as instructed to start iht (ait. Tht coaputtr vill 
display tht lttttrs and nutfttn or tht screen in largt 
letters and also say that if you havt a spttch synthtiiztr 
attached. It vill also display on tht scrtan all of tht 
nuabirs calltd so far. Until soitont has a TIN60 or if you 
vant to paust it to chick tht nuibtri, prtss any kiy. You 
vill bt instructs to prist C to continut or N for a ntv cut 
(aakt surt tht ALPHA LOCK kiy is dtpnsstd). If thtrt vas a 
TINSO and you'rt nady for a nev (in, prtss N, othtrvist 
priss C to continut tht currtnt cast. 

If you vant to vary tht spttd at vhich tht nutbtrs art 
calltd, changt tht 150 in lint 410 to a larger nutbtr for 
slovir spud or a saallar nutbtr for fattar spttd. 

If your printtr is not nattd *PI0* , changt tht natt in 
lint 140. Tht last part of this lint sits tht printtr lint 
spacing to 7/72 inch. If you do not havt an EPSON-coipatiblt 
printer, you vill havt to changt this to tht codas nitdtd by 
your printer to sit tht lint spacing. If you can't sit it to 
7/72 inch, sit it to 3 or 10 lints pir inch. 

Tht digits following tht exclaiation points at tha end 
of each Una ara chicksuta for tha CHECKSUM prograt, vhich 
appeared in an earlier newsletter. Oo not typt thest 
characters. Use tht CHECXSUM prograa to guard against typos. 
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HtiiifttHHtiemitft 

» TIngo • the prograa » 
HttHtHHttmmftit 

100 Lls8PTI( i - i l 80)s: M:'! 

'iRPTiri \4)a'l 
' H$:H$i«$ 1057 
110 CALL NA6NIFY(2):: RAK00N 
12E J: OIK U(7S,l),TM7),Ut< 

is):: for i:o to 9 :: read p 
(l):: NE1T I 1073 
120 0ATA 31599,1372 J, 29671 ,3 
1207,18925,31183,31695,4775, 
31727,31215 1222 
130 DISPLAY ERASE AU AT(3,1 
2):'TIngo' :: DISPLAY ATUO, 
7):*By Stevt Karasek" 1204 
140 INPUT 'HOW MANY CARDS TO 
PRINT? !! IF N THEN OPE 
N «:'PI0' t OUTPUT, VARIABLE 2 
55 .•: PRINT #l:CNR$C27);"A"; 
CHRt(7);!US 

ISO FOR 1:1 TO (N+1U2 :: PR 

int it :: for J:t to 10 :: p 

RINT H:TA8(J*8-4)iSE6K'TIN 
fi0TXN60",J,l);s: NEXT J :: P 
RINT II !021 

160 FOR K:l TO 5 !! PRINT II 
' :l*:n$ :: for N:0 TO l :: FO 

R J:0 TO 4 !021 
170 K:lNT(RKQtlS)+UJilS :: ' 
IF U(K,N)THEN 170 !2S4 
180 C(J,N):K :: |)(K,H):1 :: 
NEXT J :: NEXT N :: FOR K:0 
TO 4 :: FOR N:0 TO l :: FOR 
J:0 TO 4 :: N$:N$*T II IF 
H03 OR J02 THEN 210 1251 
190 IF K:2 THEN Nf:N$i"*FREE 
**• aSE N$:N$i« • 113 
7 

200 60T0 2S0 !073 
210 1:0 :: FOR 11:1 TO STEP 
-I :: X:INT(C(J,N)/10 A VH* 
10 !037 

220 FOR L:0-(J:0 ANO V:1)T0 
2 :: IF (P(X)ANO 2*(LW3)» 
AN0(V:O OR DOMEX N$:N$ft 

aSE Nf:N$&* • !04t* 
230 NEXT L :: IF V THEN N$:N 
$!• • !049 
240 NEXT U 1237 
250 NEXT J :: NftftVI* ;: N 
EXT .1 :: FOR K:l TO LEN(N$>: 
: IF SEfil(NM,l}s"t» THEN P 
RINT fl:"P;ELSE PRINT 11:' 
•|!009 

260 NEXT N !! PRINT ll:CHR$< 

13);ns :: ws" j: next < :: 
PRINT u:x$ :: next h :: pr 

INT It :Lt !245 

270 IF INT( 1/21*2:1 THEN PRI 



NT !l:CHRI<12);!169 
280 GOSUB 470 NEXT I JI I 
F N THEN CLOSE II 1035 
290 FOR 1:2 TO 7 :: REAO T$< 

i):: next I :: for i:i to is 
:: REAO us<l):: NEXT I !123 
300 OATfl TUENTY,THIRTY,FORTY 
.FIFTY ,SIXTY,SEVENTY !1S2 
310 OATA ONE, TUG, THREE, FOUR, 
FIVE,SI1,SEYEN,EISHT,NINE,TE 
N t aEVEN,TyELYE,THIRTEEN,FOU 
RTEEN,FIFTEEN 1114 
320 CALL CLEAR :: FOR 1:9 TO 
u :: REAO J :: call C0L0R( 
i,j,J):: NEXT I 1167 
330 OATA 6,7,13,5,14,3 1104 
340 Z:0 :: CALL OaSPRITEiAL 
l):: INPUT 'PRESS (ENTER) VH 
EN READY "ill !: DISPLAY ERA 
SE ALL AT(l,5)i'T I N 

0" 1240 
350 J:4 :: FOR U9S TO 136 S 
TEP8 :: CAU VCHARU,J,I,17 

):: J=J+S :: next l !181 

360 IF 2:75 THEN 460 1024 
370 J:INT(RND»7S):: IF U(J,0 
) THEN 370 1190 

380 2:ZH :: U(J,0):1 :: 1:1 
nto/15):: :-m :: display 

AT(M*iS*2,4*i*5)SI2E(2):US 

IN9 i'u*):i :: x$:SE6K'tin 

50',IM,1)!2U 

330 CALL SPRITEC#4 V ASCCX$) 9 2 
,144,104):: y$s$tr$U)*' • : 
: FOR 1:1 TO LEN(Yt):: CALL 
SPRITE! II ,ASC(SE6$(YI,I ,1) ) , 
2,144,li4*l»l4>:: NEXT I !12 
3 

400 CAUSAY(Xt):: IF J)15 A 
NO J<20 THEN CALL SAY(U$(M 
0),,'TEEN')ELSE XsINTC J/101* 
-<J>19):: CALL SAY(T$(X) n Ut 
( J-X*10)) ! 131 

410 FOR 1:1 TO 150 :: CALL K 
EY(0,X,S):: IF S THEN 430 !1 
06 

420 NEXT I 1223 

430 IF S:0 THEN 360 aSE OIS 

PLAY ATI 22 t l) .'PRESS C TO CO 

NTINUE OR N FORA NEU SANE* ! 

096 

440 CALL KEY(0,X,S>:: IF X:- 
1 THEN 440 1210 
450 XfsCXRIU):: IF Xls'C T 
HEN CALL HCHAR(22 1 1 ,32,64):: 
SOTO 360 aSE IF XSO'IT TH 
EN 440 !0S1 

460 GOSUB 470 :: 60T0 340 !0 
77 

470 FOR J:0 TO 75 I : U(J,0), 

u(J,i):0 :: next J :: return 

!061 



? 

L06IX 
3y Rich Rsntfi 
This prograt- «as 
*riU*n in rtsponst to 
a request for a 
'Nastereind" typt 
prograt. Tht object is 
to put tht correct 
colon in tht proper 
order. Instructions art 
in the prograt. This 
is a challenging gist 
for ill ages. Enjoy!! 
(Editors Kote|This 
proa/at if aval I at It in 
tht club library on 
disk and cassettt. 
Thanks Rich!) 

110 CALL CUM 

120 CALL SCREO(8) 

130 PRINT '<OoIor or <B>lac 

k I unit!' 

140 INPUT ■ENTER YOUR LETTER 
CHOICE > V :AN* 
150 IF AN$»'C" THEN 170 
160 CALL SCREEN (16) 
170 CALL CLEAR 

180 PRIXT TAB (101 |*l 0*5 I X 
': s'tnt objtct of tht gat* 
is toguest tht proper or 
der and color of tht four p 
egs that* 

190 PRINT 'tht cotputer will 
hide untfertht question tark 
s it the top. tht fou 
r pegs- art all ^different c 
olor, picked" 

200 PRINT 'frot tht sit colt 
rs. tht coeputer mi 11 hel 
o you each titt you entt 
r your four color guesses 
, by tilling* 

210 PRINT 'you just hot tiny 
colors areright and how tan 

y of thet art in tht ri 

ght row. you can havt up t 

o ten attempts" 

220 PRINT 'to quess tht prop. 

er order and color of tht 

hidden pegs' i i s" PRESS 
ANY KEY TO START 6AKE" 

230 CALLICEY(0,IC,S) 

240 IF S<1 THEN 230 

250 DATA OOOOOOOOFF ,00000000 

FF!0101,000OOO00F010101 , 0000 

OOOOIFIOIOI,10101010F,10 

1010101F 

260 DATA 101O101OFF1O101.101 
010l0101010l,10101010FF,10tO 
10101F 10101, 10101010F010 
101,FF8180A5A5BD81FF 
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270 DATA 9,11,3,11,16,4 

280 DATA 0078444478504844,00 

44442810I01010,003C40405C444 

439,0044444428281010,004 

4444454545429,00782424382424 

79 

290 FOR X»33 TO 44 
300 REAO Af 
310 CALL CHAR(X,A$) 
320 NEXT X 

330 IF ANfa'8" THEM- 370 

340 FOR 1*96 TO 134 STEP 8 

350 CALL CHAR(X,'FFFFFFFFFFF 

FFFFFM 

360 NEXT X 

370 FOR X«9 TO 14 

380 REAO Y 

390 CALL C0L0R(X,Y,1) 
400 NEXT X 

410 IF ANl»'C" THEN 470 
420 FOR 1*94 TO 134 STEP 9 
430 REAO At 

440 WUCOLORCX/8-3,2,1) 

450 CALL CHAft(X,A»> 

460 NEXT X 

470 RANOOHIZE 

480 FOR X*l TO 4 

490 A(X)»INT(RN0*4O) 

500 FOR Y*i TO X-i 

510 IF A(X)*A(Y)THEN 490 

520 NEXT Y. 

530 NEXT X 

540 CALL CLEAR 

550 PRINT TAB(ll)|"tiM$i$tZ 
RIGHT" 

560 PRINT CHRimij'R EO'jTA 

8(U)}'t t I t t" 

S70PRINr Oflt$(136)i"9 LUE'j 

TABU1)|MI*I*I*I» ca ROM" 

580 PRINT CW»U28li"*HITE" 

|TA801)|'H$Htl«" 

590 PRINT CHRi<112)s'6 REEN" 

|TAB(1U|*I 1 1 t I" 

600 PRINT CHR$(120)|"V 10UT 

•?TAB(illtM)l)8)M 

610 PRINT CHRl(l041j'Y ELLON 

•jTABUDj't MM* 

620 PRINT TA8(U))V)t)t)t- 

a 

630 PRINT TABUUj't I I I t 
640 PRINT TAB(ll)|",l)t)i)*- 
650 PRINT TAB4U))'S t t t t 
640 PRINT TAB(ll))', 1)1)1)1- 
670 PRINT TAB<1 1 J ; "t I t t t 
680 PRINT TABdlJi', 1)1)1)1- 
690 PRINT TAB(U)|"t t t I I 
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700 PRINT TABU I)} ',1)1)1) I- 

710 PRINT TAB! lll;"t t t t I 

720 PRINT TABOnjVIUtlt- 
■ 

730 PRINT TAB(lU)'t I I I t 

740 PRINT TAB(li)j',tmi)i- 

750 PRINT TABdllj'l t I t I 

760 PRINT TAB(iU|",l)llt)f- 
• 

770 PRINT ' COL0R?'jTAB(111j 
•t I I t 1" 

780 PRINT TABUUi'd+l+l+t* 
'I 

790 IF ANf»'C" THEN 810 
800 CALL VCHAR(2,3,3?,6) 
810 FOR C»14 TO 20 STEP 2 
820 FOR R«3 TO 23 STEP 2 
830 CALL HCHAR(R,C, 44) 
840 NEXT R 
850 NEXT C 

860 FOR C*14 TO 20 STEP 2 
870 CALL KCHAR(2,C,43> 
880 NEXT C 
890 R»23 
900 K*0 
910 8-0 

920 FOR C*14 TO 20 STEP 2 

930 60SU9 1080 

940 CALL HCHARCR,C,Kt8+88) 

950 IF A(C/2-4)OK THEN 970 

960 8«80 

970 FOR I«l TO 4 

980 IF AUIOK THEN 1000 

990 IMf+l 

1000 NEXT X 

1010 NEXT C 

1020 CALL KCHAR(R ) 24 t iK48) 
1030 CALL KCHAft<R,29,B+48) 
104O RsR«2 

1050 IF 8»4 THEN 1340 
1060 IF R<3 THEN 1340 
1070 GOTO 900 
1080 CALL BCHAR(R,C,88) 
1090 CALL HCHAR(23,10,95) 
1100 CALL KEY(0,K,S) 
1110 CALL KCHAR(R,C,32) 
1120 CAU. HOWRI23, 10,32) 
1130 IF S<1 THEN 108O 
1140 CALL KCHAR(23,10,K) 
1150 IF (K«82J*()C*89)*(IC«71> 
♦<K*86)f(K*87)f(JC«64)THEN II 
90 

1160 CALL SOUND (-50, 220,0) 
1170 CALL SOUNO (250, 110,0) 
HBO 6QT0 1080 
1190 CALL SOUNO (-50, 880,0) 
120O CALL SOUN0(-5O,989,4) 
1210 IF K<>82 THEN 1230 
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1220 K*l 

1230 IF K<>89 THEN 1250 
1240 K»2 

1250 IF K<>71 THEN 1270 
1260 K»3 

1270 IF K<>84 THEN 1290 
1280 K*4 

1290 IF K<>87 THEN 1310 
130O K*3 

1310 IF K<>66 THEN 1330 

1320 K«4 

1330 RETURN 

1340 FOR M TO 4 

1350 CALL HCHAR(2,Xt2M2,A(X 

) 18*88) 

1340 NEXT X 

1370 1*11 

1380 Nt*' NELL YOU " 

1390 60SUB 1700 

1400 IF B(4 THEN 1480 

1410 Nf»" HADE IT" 

1420 60SU9 1700 

1430 «!»• IN ONLY" 

1440 60S09 1700 

1450 Kfa" 'WTK$<ABS((RO)/2 

-12) 1 1" TRIES" 

1440 60SU9 1700 

1470 SOTO 1540 

1480 Ht»'HISHT HAKE" 

1490 60SUB 1700 

150O Hf»" IT NEXT" 

1510 60SU9 1700 

1520 *t* 9 TINE" 

1530 60SU9 1700 

1540 L<*2 

1550 Ht«" PLAY" 

1560 60SU9 1700 

1570 Ufa" AGAIN" 

1580 60SU9 1700 

1590 M«" Y/N?" 

1600 L=LO 

1610 CALL KEY(0,r,S) 

1620 CALL KCHAR(20,5,32) 

1630 CALL HCHAR(20,7,32) 

1640 60SUB 1700 

1650 1*20 

1660 IF SO THEN 1610 
1670 IF 1089 THEN 470 
1680 IF K<>79 THEN 1610 
1690 END 

1700 FOR X*l TO LEN(NI) 
1710 CaASC(SE6*(M,X,i)) 
1720 CALL HCHAR(L,X*2,C) 
1730 NEXT X 
1740 L=LO 
1750 RETURN 



/o 

Maze Maker 
by Steve Karasek 

„i„t „, n7e3 f or vou to solve. It asks for the number 
T1 ? iS P "fr iS tSfn f r the level of difficulty, from to 9. 
of mazes to P^Xial maze Ca child 's first maze, perhaps), while 
uEl VLVafrV^anengfng. The level number is printed at the top 

pathways &eT&^? "r young ? ildr.n. There will always be 

Thfhlgher^e? a°wh^eto compute. In particular level^ 

mazes take over 20 minutes each. You can always start up the J™erem 
come back I few hours later. The program keeps track of how far it 
has lone in computing each maze by displaying a line of the form M / N 
on the screenf whfre N is the number of squares in the maze and M is 
?he number of squares the program has confuted a path to. When 
ominia N. the maze is done and is sent to the printer. 
IT your Prin^ is not named »PI0». change the name in Jige Th f 
' t y °„t of this line sets the printer line spacing to 7/72 inch. If 
you* ^ not have a" EPSON- compatible printer, you will have ^change 



HlliflillllllllHttii 

t HA2E - THE PROGRAM * 

HIlllfllllllillHIIH 

100 RANOONIZE :: OPTION BASE 

I :: dih H( 39,39):; input • 

HOW MANY HA2ES? *iZ PRINT 
1223 

110 INPUT 'LEVEL OF 01FF1CUL 
TY(0-9>? ":l :: IF L<0 OR L> 
9 THEN 110 ELSE OPEN I1S»PI0 
»,0UTPUT !! PRINT fi!CHR$(27 

); , A , ;CHR$(7);ll3i 

120 N=INT(L*1)M+(L:4 OR L:9 

):: x:80/N :: S:INT(X):: s-.s 

♦(X:S)!138 

130 PRINT ll:'Stirt!sTti<30) 
}»L«vai';L ;; for X:i ton 

: FOR Y:l TO N S: H(X v Y):0 : 

: next v ;; next x ;; IF N:3 

9 THEN 150 1174 
140 FOR X:t TO N 1! H(N*1,X> 
,M( X ,N+1 ) =16 NEXT X 1203 
150 C,X,Y:1 !! DISPLAY ERASE 
ALL AT(12,12)S"1 /'JN*N S! 



ON ERROR 290 !059 
160 V:INT(RND«4):: DX:X*<¥:0 
)-(U:l)s: 0Y:Y+(U:2)-(tf=3)S: 
fcMOX.OYJi! IF K THEN 
160 1229 

170 H(X,Y):H(X,Y)*2 A « IS IF 
INT(V/2)»2:V THEN VsVU ELSE 
V=!M 1125 

180 x--ox ;: Y:0Y H(X,Y):N 

<X,YM A V S! C:CU !! DISPLA 
Y AT(12,9)SIZE(4);USINQ 'III 

t":c :: if c-.n*n then 240 io 

S3 

ISO IF X(N THEN IF H(X*l,Y)s 

0THEN 160 1198 

200 IF Y<N THEN IF H<I,M>3 

THEN 160 1199 

210 IF Y)t THEN IF H(X f Y-l>-. 

THEN 160 1117 

220 IF 1)1 THEN IF HU-1,Y): 

THEN 160 1116 

230 X:INT(RN0*N)U SS Y:1NT( 

RN0*N)U SS IF H(X|Y)THEN 19 

ELSE 230 1248 

240 ON ERROR STOP SS PRINT I 



l :: print ii:'#';tab(S*d;r 

PTIW^tN-iHUSS S:S 

-i :: s$:RPT$C •,$>s:M--RP 
M'f ,8)1069 

250 H(N f N):N(N,N)*8 SSF0RY 
:1 TON:: FOR tf:l TO 8 SS P 
RINT HsTjlSFOR X:i TON 

:: PRINT ll:S$;l076 
260 IF N(X|Y)AND 2 THEN PRIN 
T IIS* * JELSE PRINT IIS'I'JI 
084 

270 NEXT X SS PRINT 11 SS NE 

XT u :s print «:•#•;:: FOR 

X=l TO N S! IF H(X,Y)AN0 
8 THEN PRINT liSSIjELSEPRI 
NT I1SX$;I244 

280 PRINT Ill'i'iS: NEXT X S 
S PRINT II SS NEXT Y SS S:S» 
1 :: PRINT IIS STAB(S*N-4);» 
Finiih^.CHRKmr.SZsM S! 
IF 2)0 THEN 130 ELSE END 10 
20 

290 ON ERROR 290 SS RETURN 1 
60 !1S9 
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EXAMPLE OF A MAZE FROM "MAZE MAKER" 

Steve Karasek 



Start Level 9 

a ################£#####$###«###«### 

[###### § 

##g ##|#^ 



#################; 



[#######g#####g#######< 

!## 8#g g 8 g###< 

E###g 5#g#g j=; ##; 
### ##];; # ## : 
l#g 8#####i 
teg 8#g#######i 

:## S#g 

#### ;;;#$## 

#8 
## 



I 




## 
### 



### 
#### 

## 

## 8# 

8 8 ##g ## 
#######8### 



### 
#8 ## 
###########8# 



#8 §## 
### g# 

###g 8###8 §#### S 
Finish 
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TI WRITER TABLE SORT 
by George Paschetto 



This program will sort a table written with the TI WRITER. In order to use it, you will need XBASIC. 
The program can be very useful for organizing a data base into different indices organized by use> alphabetically, or any 
other characteristic. Here's an example: 



1 2 
4.87 Photo Albun, 3 ring 
29.39 Tripod, silk SM300 
39.87 Lensi vide angle 

127.72 Camera? Polaroid 



1 2 

127.72 Caroera, Polaroid 
39.87 Lens, wide angle 
4.84 Photo Albun, 3 ring 
29.97 Tripod, silk SH300 



The first exanple is sorted on field 1, the price. The second is sorted on field 2, the description. I have used this to 
cootpare lists of ny students- one sorted by age and the other sorted by reading level. I decided to use files created on the 
TI WRITER because it supports an 80 character line and it allows easy editing of the table. If your table is part of a larger 
file, use the ability of the TI WRITER to save or load specific lines of a file. 

When creating the table for sorting, you dust number the fields of your table by placing the number over the first 
character in that field. The field narking line dust be the first in the file, or the progran will not be able to find it. 

CORRECTS INCORRECT: 

12 3 12 3 

28016P 39.87 Lens, wide angle 2801GP 39.87 Lens, wide angle 

300PBX 29.97 Tripod, silk SH300 300PBX 29.97 Tripod, silk 

610000PL 127.72 Caaera, Polaroid 610000PL 127.72 Camera, Polaroid 

3050PEB 4.87 Photo Album 3 ring 3050PEB 4.84 Photo Albun, 3 ring 

The incorrect exanple has aisplaced field (Barkers 1 and 2. The 1 (in 127.72) will not be recognized as part of field 
nuaber 2, and all the entries in field miaber 1 will be sorted starting with the second character. 

Notice that the 2 marking the second field in the correct exanple is over the left-most digit of the largest number (the 1 
in 127.72). Nunbers will not be sorted correctly unless they are right-justified. (You nay want to use leading zeroes, 009 
010 014 240 etc. for ease, but It is not necessary). 

In creating your table, plan ahead so that you know what the largest entry will be. It is perfectly alright to have 
several blank spaces separating fields. 

The file can be as long as 400 lines (not counting the field darker) and each line can have up to 9 fields. The fields 
must all fit on one line. 



The sort will always be in ascending order (froa smallest to largest). 



100 REM PRESCAN VARIABLES 
110 GOTO 120 it 0*,X,Y,K,S,Z 
,FN,FS,FL,L,SI,H,J,B$ u CAL 
L KEY JS CALL SOUND »: CALL 
KCHAR 

120 CALL CLEAR DIM A* (400 

),FUO) 

130 

140 INPUT " See Instruction 
s?Y/N ':D$ sx CALL CLEAR s: 

IF D$»"N" THEM 230 
150 PRINT ' This program was 

written tosort files create 
d with the TI WRITER. The f 
ile can be as long as 400 I i 
nes." 

160 PRINT J The first I in 
e of the file must contain t 
he field nun- bers, like thi 
s: ( : s 



170 PRINT "1 2 3 <-f irst 
line"»"102N4 PAUL PETERS": 

"314 NO CAROL CORRINA":" 

622 AL HI) NOES't i 

180 PRINT " You nay have up 

to 9 f ieldsbut they aust all 
fit on oneline."* t n INPiJ 

T " (press enter)":D$ :: CA 

LL CLEAR 

190 PRINT " The lines can be 
up to the full 80 character 
s long thatTI WRITER support 
s. This progran will only 
sort one field at a tine." 
200 PRINT i :" The sort is a 
I ways in ascending orde 
r, with the lowest value f 
irst." 

210 PRINT : :" The file can 
be used by TI WRITER after t 
his program is through wit 



h it.": : 

220 INPUT " (press enter)": 

0$ :: CALL CLEAR 

230 DISPLAY AT(12,1): M Input 

device and file name,":" D 

SK" 

240 ACCEPT AT (13,7) :M » IF 
D$a"" THEN 240 aSE OPEN II 
^DSKmDISPLAY .VARIABLE 
80, INPUT 
250 CALL CLEAR 
260 REM LOOK FOR 1ST LINE 
270 LINPUT ll:A$(0):: IF EOF 
(DTHEN 600 ELSE IF A*(0)«" 
" THEN 270 

280 FOR X«l TO 400 i: LINPUT 
*l:A$(X):: IF EOF(l)TV€N 31 



290 NEXT X 



300 REM F()=FIELD'S POSITION 
S (COUNT DOWN 2 FROM EOFO-L 
AST 2 LINES ARE TABS) 
310 X=X-2 :: CLOSE #1 :: FOR 
Y«l TO 9 s: F(Y)=P0S(A4(0), 
STR$(Y),1):: IF F(Y)*0 THEN 
330 

320 NEXT Y 

330 F(Y)=80 :: Y=Y-1 s: IF Y 
THEN 350 

340 PRINT "Can't find field 
aarker.": :"This was found i 
nstead:": :A*<0):: END 
350 CALL CLEAR :: DISPLAY AT 
(10,5):"Press: , : u <1> Sor 
t":" <2> Save on disk":" 

<3> Quit" 
360 CALL KEY(OXS):: IF (K< 
49)+(K>51)THEN 360 ELSE CALL 
SOUND(-20,880,0):: ON K 
-48 GOTO 380,540,580 
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* CONTINUATION OF 



370 REM GET FIELD TO SORT 
380 CA± CLEAR :: DISPLAY AT 
(i,9):"<choose field)" 
390 FOR Z=l TO Y n DISPLAY 
AT(Z*2,l):"Fieldr';STR$(Z>j" 
"i$E6*(A*(l),F(Z),F(Z+l)-F( 
Z)):: NEXT Z 

400 DISPLAY AT (20,1): "Sort o 
n field number :: FN=0 
410 CALL KEY (0,K,S):: IF (K= 
13)*(FN>0)THEN 440 aSE IF ( 
K<49)*0O48*Y)THEN 410 
420 CALLHCHAR(20,24,K):s FN 
=K-48 n GOTO 410 



TI WRITER TABLE S 

430 REM SORTING (FN=FIELD NI 
MBER, FS=FIELD'S START, FL=f 
IELD'S LENGTH) 

440 CALL CLEAR :: DISPLAY AT 
(12,5) '."Sorting..." :: FS=F( 
FN):: FL=F(FN*1)-FS :: K=X : 
: L»INT(X/2)+l 

450 IF LOl THEN L«L-l :: Si 
=Ai(L):: GOTO 470 
460 S*=A*(K):: A$(K)=A*(1):: 
K=K-1 :: IF K<1 THEN A*(H)= 
Si :: GOTO 350 
470 J=L 

480 H=J :: J»W IF J)K T 
HEN A*(H)=S* :: GOTO 450 



T * 

490 IF J)=K THEN 510 
500 IF SE6$IA${J>,FS,FLKSEG 
*(A$(J+1),F$,FL)THEN J=0H 
510 IF SE6*(S$,FS,FL)>=SE6f( 
A$(J),FS,FL)THEN A*(H)=S$ :: 
60T0 450 

520 A$(H)=A*(J):: GOTO 480 
530 REM SAVE ON DISK (Y GOES 
TO X+2 SO LAST 2 LINES OF F 
I IE ARE SAVED) 

540 CALL CLEAR :: DISPLAY AT 
(12,1): "Input device and fil 
e natie,":" DSK U {D$ 
550 ACCEPT AT(13,7)SIZE(-12) 
:D* :: IF D$="" THEN 240 as 



E OPEN ti:"DSra$,DISFA-AY • 
VARIABLE 80, OUTPUT 
560 FOR Y=0 TO X+2 FAIN* 
»i:A*(Y):: NEXT Y :: CLOSE * 
1 :: GOTO 350 

570 REM QUIT 

580 CfU. CLEAR :: DISPLAY AT ^ 
(12,1): "QUIT- Are you sure*' 
Y/N" 

590 ACCEPT AT(12,25)SIZE(1>V 
ALIOATE("YN"):W :: IF B*='N 
" THEN 350 aSE END 
600 PRINT "File not properly 
organized.": : :: GOTO 230 
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EASY GRADER * **** 
by Harold Hoyt 



Now that my daughter, Kim, is a school teacher, 
I see that she can use all the help that she can 
get. I see her using a "slide rule table" for 
grading homework and tests. You move the number of 
problems on the test under a window and look up the 
percent right as a function of the number of 
questions missed. I thought that it might be handy 
to have several copies of this kind of table, 
produced by the computer for easy insertion in a 
notebook. Maybe all of the school teachers might 
find it handy. , * . 

In order to get a large table printed in a 
small space, a printer that can do condensed 136 
characters and subscripts is required. The table 
covers a range of 4 to 99 problems. Some squirming 
was required to get everything to fit. The table is 
printed as three smaller tables. After each table 
is printed, the program stops to allow the operator 
to position the paper. After the paper is 
positioned as desired, press any key to continue. 
Do not turn off the printer to position the paper as 
the control codes to the printer are sent only once 
when the printer file is opened. The first two 
tables fit nicely on one 8.5 by 11" sheet and the 
third table nearly fills a second sheet. 

One could make several copies of the table 
without separating the sheets and then put the paper 
back in the printer reversed so that the tables 
would print on both sides. One would have to 
stagger the printing by one sheet to come out even. 

Problems 5 through 35 are in one table, 36 
through 67 in a second, and 68 through 99 in the 
third. Line 100 opens the printer. Substitute 
codes as required for your printer int the string at 
the end of line 100. 27 65 06 sets line spacing at 
6/72". 27 66 03 sets condensed. 27 92 01 slashes 
the zero and 27 83 01 sets subscripts. The 13 
performs a carriage return to start a fresh line for 
the header. 

For P=0 to 2 refers to pages or passes. Could 
have said T for tables? For C=4+32*P to 35+32*P 
allows the three tables to be non-overlapping. The 
rows are calculated to be one less than the maximum 
# of problems. The whole thing was designed without 
TAB settings using tricks to make each column entry 
right justified printing PRINT #1:RPT$C" 
■\ 3-LEN(C$))C$_l -.This function will use 3 printing 
spaces if C$ is 0,1,2 or 3 characters long. 

The only meaningful calculation is in line 140 
where C$=STR$C INTC 100*( (C-RD/C) +. 5) ) . C is the 
total ii of problems, R, the tt wrong, is the row #. 
C-R/C is the fraction right. Multiplied by 100 is % 
right. Add 0.5 and do an INT rounds up to the 
nearest percent. 



#•!**###*#*#**** 

* EASY GRADER * 

* * 

* THE PROGRAM * 
#########**#*** 

1 (SAVE DSK1. GRADER !200 
100 CALL CLEAR !J OPEN ll:"P 
10" } VARIABLE 136 !! FOR C:i 
TO 14 :: PRINT tl:CHR$(VAL(S 
E6t( , iS276506276603279201278 

30ii3 a ,2«M t 2»);:: next c 

!U7 

110 X$:" Easy Grader 

by Harold Hoyt 10/1 
1/88" :: DISPLAY AT(10,7):XI 

:: for P:0 to 2 :: print u 

:H:TAB(60);"I of Proble»5" 
1047 

120 PRINT 111" Wrong";:: FO 
R C=4*32»P TO 3S*32»P :: C$: 
STRKC) : : PRINT tl:RPT$(" ", 

3-LEN(C»)&c$;:: next c :: P 

RINT 111" Wrong" IPrntHdr !1 
43 

130 FOR R:l TO 34+P«32 :: Rt 
:STRt(R):S PRINT ll:TAB(8-LE 

N(R$));R$;:: for c=4*32*p to 

35*32*P :: C$:"— • 11 IF C 
<R THEN 150 1173 
140 C*=STR$(INT(100»((C-R)/C 
)f.5))!238 

150 PRINT ll:RPW 1 ,3-LEN( 

ctmct;:: next c :: print i 
l:RPT$C ",3-LEN(R$))iRi :: 
NEXT R 1135 

150 DISPLAY AT(12,1)!"" :: 
ISPLAY AT(12,l):"Prfis« Any K 
ey To Continue" :: CALL KEY( 
0,K,S):: IF S:0 THEN 160 :: 
DISPLAY AT( 12,1) Jerking" ! 
080 

170 NEXT P :: CLOSE II !255 
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BASIC BANNERS 
by Sttvt far ink 



THE NEW CURSOR 
++++++++++++++++ 
By Rich Renth 

In this short little 
routine that -follows, you can 
change your cursor to whatever 
character you please. The 
routine is an old but useful 
one. To change the character 
simply change the 8 numbers 
after the 12288 in line 110. 

These numbers must be in 
decimal -form not hex. To 
convert your 16 character 
pattern indenti-fier (used in 
CALL ChAR) to decimal, split 
it up into 8 pairs -for the 8 
rows. The first number of the 
pair should be multiplied by 
16 and added to the second. 
The letters in hex to decimal 
are A=10 B+ll C=12 D=13 E=14 
F=15. Here is a small example 
of a pair -E7 = 14 X 16+7 
or just 231. When this 
program is run, your new 
cursor will stay this way 
until you exit extended basic. 

Cursor below is small 
underline. HAVE FUN !!!!! 



100 CALL INIT :: CALL L0AD<8 
196,63,248):: CALL LOAD (1637 
6, 67, 72, 65, 78, 71 , 69, 48, 8 
) 

110 CALL LOAD (12288, 0,0, 0,0, 
0,0,0, 124) 

120 CALL LOAD (12296, 2, 0,3, 24 
0,2, 1,48,0,2,2,0,8,4,32,32,3 
6,4,91):: CALL LINK ( M CHA 
NGE") 




«• W « a w a» 



Th is short Extended Basic 
progran will print banners. It 
asks you for a size frofi 1 to 
10> and for a mmqt to be 
printed. The nessage can of 
any length. It mill then print 
the message sideways on the 
printer in block letters. T*o 
one-character eiatiples are 
shown of size 1 and size 2. 
Size 10 is about the size of 
this page. You can nil sizes 
or create very long banners by 
running the prograti several 
tines. If your printer is not 
addressed as "PW"» change the 
name in line 100. 

The numbers at the end of 
each line are checksum. Use 
the CHECKSUM progran by Ton 
Freeaan (this aontht disk of 
the flonth) to enter the 
prograti. 



100 OPEN lls'PWSOUTPUT !14 
7 

110 PRINT 'SIZE (MQ)'|ti I 
NPUTSln PRINT 'ENTER MESS 
A6E1" u UNPUT XI :» B*=RPT 
»(■ - .SZ>!002 

120 FORM TO LEMXIlti It* 
SE6l(X$,I»li:t CALL CHARPATC 
ASC(2s)>PATt):s D$=RPTi(ZtiS 
Z)n FQRO0T0 5U 0$(C1*' 
" :» KEXTC !02l 
130 FOR A«13 TO 3 STEP -2 »: 
N=POSC"0t2345&739ABC0EF%SE 
G*(PAT$,A»U,1M !047 
140 FOR C«0 TO 3 n IF 2*<3- 
ClAN0 N TreN'Oi<Cl=Q*<C)M)* 
aSE 0$<C)=»D$(C>tiBi 1231 
ISO NEXT C n N*P0$t"0123456 
789A8CDEF"»$EG$<PAT$,A*l,l). 
D-l »i FOR C«4 TO 3 s: IF 2 
A <7-C)ANDNTHEN0i<C)=fl$<C> 

w)$a$Eo*<ci=ot(C)m 1093 

160 NEXT C MOT A :: FOR 
C=0 TO 3 ?: FOR J*i TOSZ 
PRINT *i:TAB(41-LEN(0$(C))/ 
:J?0KC}:: NEXT J i: NEXT C 
s: NEXT I !148 
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* *s :*= * * * *• 

* CLOCK S REVISITED * 

* toy Harold Hoy "t * 



The program listing from our Nov 88 ^-'•"•'^^KS 'won ; t work 
from a cold start without adding a line, 90 CALL PEEKC8198, A) . . if 
AO170 THEN CALL INIT. which is required for the program to RUN if 

INIT K n w£°" £iiin.»y written ' converta HEX ^VA b f? 10 

data and uses "CALL LOAD" in XBasic to put the converted DATA into 
memorv You may substitute any HEX DATA strings representing a MEMORY 
lMWE y program that is RUNnable* from XBasic for the DATA statements in 
this tjroeram, which makes it a dandy utility. 

I have chosen to rework Mr. Fitchhorn's program, so that it will 
write the "CALL LOAD" stuff to a TEXT file, which can then be 
converted to a program, which may be SAVed and RUN. The extra steps 
retrod to create this new program are worth while, since you only do 
the extra steps once to create the new program, and the resulting new 

Pr08 Tw W for She SSiS*^o approaches have been traditionally used 
for having programs write other programs. One opens a file in merge 
forma?! D/V 163, and sends Basic line number DATA and Tokens to this 
file The end program is then recovered by using a MERGE format to 
convert the S/Ael file to an XBasic program. The 
opens a D/V 80 file and writes a program listing to the file. The 

listing is then converted to an XBasic P r ?,^V. si " 8 s ^^isTC using 
converts a listing to a program, such as "ENTER" in J?WERBASIC, u31n 8 
a TOKEN look-up table. I like the second approach better since it 
allows one to convert any TEXT file program listing from any machine 



*° Aslume ihat you have some source code that could be assembled and 
RUN using XBasic. such as Mr. Fitchhorn's clock P 1 ^ 8 ?'.^ 1 *^ of 
Mr. Fitchhorn's program just about everything ™ x *~ lt'x££ 

converlion Lines 130*140 demonstrate the ability to POKE 
lines to the listing directly. Lines 500 to 990 POKE the last lines 
to the listing, including the look-up of the "LFAL etc. last tree 
address in low memory" etc. . y- ■ 

If vou have the source code of a program that will run in XBasic 
and want to convert it to CALL LOAD format, the following is one way 
li dotng i?. using TICK/HH as a UTILITY, /o generate the HEX DATA for 
the nrolram use the Editor/Assembler cartridge and E/A disk. 

not P FCnneT;eb! e to edit the source code ^.^/^^^E^in 
before the first executable statement. Ordinarily, the assemoier wii* 
nut the first batch of relocatable code at this address. We will take 
over the responsibility of placing the code Properly with our CALL 
LOAD statements We need to update the FFAM (First Free Address In 
Memory) Tne reason I want to use the E/A cartridge version of the 
ASSEMBLER is to create a LISTING that shows the Source and object 
codl The A0RG statement forces the assembler listing to show 
non-re locat able code in the LISTing. This only done for you if you 
load the urogram from Editor/Assemmbler. Be sure and NOT use the 
"2" Comorlssld^bject code option as this is not useab e from XBasic 
Well? I've finally caught up with what Dr. Tamashiro was doing 2 
.ago Don't give up on assembly language! It's the way to go I 



years ago 



/7 

TICK/HH 

I ISAVE DSK1, TICK/HH 1253 
10 ! I 

\m ■■ 

20 ! EXTENDED | 
!2I3 

30 ! BASIC prograi to load ! 

1033 

40 ! Interrupt driven dock! 
• 101 

50 ! By: D. I, Fitchhorn ! 
! 10 

60 i 30S Navajo I 
1091 

70 ! Keller, TX 76248! 

1006 

80 I I 

1175 

90 'Modified by H. Koyl to « 
rite prog lilting 1/3/89 111 



100 Writes dati to i CALL L 
0A0 propria lilting. You con 
vert lilting to XBuic md t 
ken RUN it. 1114 

110 OPEN IIJ'DSKI.LISTING'.O 
UTPUT 1035 

120 LN:500 :: R: 10240 :: T:2 
4 :.* HH,HN:0 11 HXI:'012345$ 
789ABCDEF* 1101 
130 PRINT lli'i ISAVE 0SK1.H 
CLOCK' ILel'i Keep track of 
what prograi ii therel 1045 
140 PRINT ll:STR$(LN);» CALL 
PEEK(8198,A>:: IF AO170 TH 
EN CALL IJI1T' LN:IN+1 
1192 

ISO 60SUB 1500 1049 , 
160 IF XIO-ENO* THEN 150 10 
47 

500 I EXIT Routine 1195 
510 LN:LN*10 !: X«:STRf(LN)i 
' CALL PEEK(8196,A,B> !J LFA 
L:A*256tB :; NE«L:LFAL- 
16 A:INT(NEUL/256) .*: B:N 
E«L-A*2S6' 1 101 
SIS PRINT ll:K$ » 196 
520 LN:LN*10 :: PRINT ll:STR 
KLN);» CALL L0AD(8196,A,B): 
: CALL L0A0(NE¥L,83,84,65,82 
134,32,40,0)' ! 170 
S30 LN:LN*10 :i PRINT li:STR 
«(LN);' CALL LOA0(NEVL*8,83 f 
84,73,80,32,32,40,40):: CALL 
LINKC'START")" 1 108 



540 LN=LN+10 :: PRINT #1:STR 
*(LN)}» CALL L0A0(10543,T,0, 
HR,0,«N,0,SC)' 1212 
990 CLOSE II ENO f 164 
1000 DATA C820,28EA,292C,C82 
0,28E8,2928,C820,28E6 !224 
1010 DATA 292E,04EO,2930,04E 
0,2932,04EO,2934,0200 !119 
1020 DATA 292E,C800,83C4,045 

B, 04E0,83C4,0458 (104 

1030 DATA O2E0,2928,02EO,292 
8 f O6O2 l 1552,C0A0 l 28EA 1154 
1040 DATA 0586,0286,0030,160 
E,04C6,0585 I 0285,003C 1129 
1050 OATA 1609,04C5,0584,80C 
4 , 1 605 f 04C4 ,0283 .001 8 f 1 301 .0 
584 (005 

1060 DATA O6CO,D800 ( 8C02,06C 
0,E020,28E4,0800,8C02 1182 
1070 DATA 4020,28E4,0064,28E 

C. 0941 ,0221 ,9000,0801 ,8C00 I 
228 

1080 DATA OA41 ,024i,0F00,022 
1,9000,0801,8000,0201 1084 
1090 DATA 9A0O,D801,8COO,D06 
5 g 28EC ,094 1 ,0221 ,9000 1151 
1100 DATA D801,8C00,0A41,024 
l,OFO0,O221,9000,D801 1110 
1110 OATA 8C00,0201,8COO,080 
1 ,8C0O,D066 f 28EC,O941 1169 
1120 DATA 0221 ,9000,0801 ,8C0 
O.OA41 ,024 1,0F00, 0221 1086 
1130 DATA 9000,0801, 8C00 ,072- 
0,8306 1133 

1140 DATA O2EO,83E0, 0458, 400 

0,0000,0017,0038 1032 

1150 DATA 0001,0203,0405,060 

7,0809,1011 1133 

1160 DATA 1213,1415,1617,181 

9,2021,2223 1156 

1170 DATA 2425,2627,2829,303 

1,3233,3435 1174 

1180 DATA 3637,3839,4041,424 

3,4445,4647 1192 

1190 OATA 4849,5051,5253,545 

5,S6S7,58S9,END 1039 

1500 (SUB WRITE LINE(LN,R,1($ 

,A,B) 1076 

1510 REAO XI !019 

1520 IF X$:'EN0' THEN 1600 I 

030 

1530 PRINT fl;$TR$(LN)}' CAL 
L L0A0(';STR$(R)j» l »j!254 
1540 FOR 1:1 TO 8 1063 
1550 A:<P0$<HXI,$E6tUf,i,l) 
,!M>»16tP0S(HX$,$E6$U$,2, 
1),1)-1 :: 8r(P0S(KXI,SE6$(X 
t,3,l),i)-l)M6tP0S(H)($,SES$ 
<XU,1),IH !207 



1560 PRINT li:STR$(A);»,';ST 
Rt(B);:: R=Rf2 if 1:8 the 

N 1590 1208 

1570 READ H li IF X$:W 
THEN 1590 1159 

1S80 print ii:"/;:: next i 

1081 

1590 print ii:»)' :: ln-.ln+i 

1153 

1600 RETURN 1136 



HCLOCK 

1 ISAVE DSK1 .HCLOCK 1199 

500 CALL PEEK(8199,A):: IF A 

O170 THEN CALL INIT 1011 

510 CALL L0A0(10240,20O,32,4 

0,234,41,44,200,32,40,232,41 

,40,200,32,40,230)1252 

520 CALL L0A0(10256,41,46,4, 

224,41,48,4,224,41,50,4,224, 

41,52,2,0)1139 

530 CALL L0ADU0272, 40,46,20 

0,0,131,196,4,91,4,224,131,1 

96,4,91,2,224)1093 

540 CALL L0A0(10289,41,4O,2, 

224,41,40,6,2,22,82,192,160, 

40,234,5,134)1033 

550 CALL LOAD(10304,2, 134,0, 

60,22,14,4,198,5,133,2,133,0 
,60,22,9)1079 

560 CALL L0ADU032O,4,l97,5, 

132,128,196,22,5,4,196,2,131 

,0,24,19,1)1200 

570 CALL L0A0(10336,5,132,6, . 

192,215,0,140,2,6,192,224,32 

,40,229,216,0)1087 

580 CALL LOAO(10352,14O,2,64 

,32,40,228,208,100,40,236,9, 

65,2,33,144,0)1085 

590 CALL L0A0(10358,216,1,14 

0,0,10,65,2,65,15,0,2,33,144 

,0,216,1)1075 

600 CALL L0AD(10384,t4O,O,2, 

1,154,0,216,1,140,0,208,101, 

40,235,9,65)1227 

610 CALL L0A0(10400,2,33,144 

,0,216,1,140,0,10,65,2,65,15 

,0,2,33)1011 

620 CALL L0AO(10415,144,O,21 

6.1,140,0,2,1,140,0,216,1,14 

0,0,208,102)1203 

630 CALL LOAO(10432,40,236,9 

,65,2,33,144,0,216,1,140,0,1 

0,65,2,65)1135 



640 CALL LOAD(10448,15,0,2,3 

3.144,0,216,1,140,0,7,32,131 

,214,2,224)1171 

650 CALL LOAD(10464, 131,224, 

4,91,64,0,0,13,0,23,0,59,0,1 

,2,3)1125 

660 CALL L0AD<10480,4,5,6,7, 
8,9,16,17,18,19,20,21,22,23, 
24,25)1205 

670 CALL LOAD(10496, 32,33,34 

,35,36,37,38,39,40,41,48,49, 

50,51,52,53)1023 

680 CALL LOAD(10512,54,55,56 

,57,64,65,66,67,68,69,70,71, 

72,73,80,81)1052 

690 CALL LOA0(10529,82,83,84 

,85,86,87,88,89)1023 

710 CALL PEEK(8196,A,B):: LF 

AL:A*256*B IS NEVL:LFAL-16 : 

: A:!NT(NEVL/256):: B:NEVL-A 

»2S6 1227 

720 CALL L0A0(8196,A,B):: CA 
LL L0AD(»1EVL,83,64 I 6S,82,84, 
32,40,0)1041 

730 CALL LOAD(NEVL+8,83,84,7 

9,80,32,32,40,40):: CALL LIN 

KCSTART')!247 

740 CALL LOAD(10543,T,0,HR,0 

,HN,0,$C)I175 





********************** 

* RESISTORS * 

* by * 

* H. C. Hoyt jr. * 
********************** 



I 'm thouroughly convinced 
that "computers are the perfect 
teaching tool. All that is 
needed is good software. To 
prove my point , this monthi I am 
presenting one of my vintage 
programs, written to run in 
either Basic or XBasic. It is a 
training aid for people who want 
to learn the resistor color code 
universally used by electronics 
people. The colors black, brown, 
red, orange, yellow, green, blue, 
violet, grey and white represent 
the digits through 9 
respectively. In the program, a 
resistor is displayed. When the 
program is first run, you are 
supposed to read the colors from 
the resistor and figure it's 
resistance, press any key but 
quit or < ENTER) and the answer is 
written above the resistor. 
Press <ENTER> and the order is 
reversed. The value is written 
above the resistor and upon 
pressing a key, the colors 
appear. Do this long enough, and 
you will not only learn how to 
read resistor color codes, but 
also what values of resistors are 
normally used. Since not 

everyone is using a color monitor 
and NTSC colors are poor anyways, 
the colors are written out on the 
screen. 

This program is superior to 
another that I 've seen that 
purports to teach the color code, 
since it uses a look up list of 
real resistors in a table, rather 
than totally randomly generating 
unreal resistors. No one really 
uses a 723 ohm resistor. The 
values of resistance this program 
displays are all standard stock 
resistors. The math buffs in the 
crowd might enjoy figuring out 
how the 3rd digit was generated. 



< COMPUTER BRIDGE APRIL 1989 P. 6 



1 REN SAVE DSX1. RESISTOR* 12 
39 

100 REN iitiiiHiiHHiiii | 

174 

110 REM * (RESISTORS) * I 
246 

120 REM » BY HAROLD HOYT » ! 
039 

130 REM * TRAINING AID » I 
216 

140 REM * 2/11/85 » ! 
141 

ISO REM KHttiiiiiiiiiiii | 
174 

160 DIM R( 160) 1 171 

170 CALL SCREEN(3)I148 

180 G0SUB 9000 1155 

190 60SUB 1000 1059 

200 IF FLASOi THEN 330 !219 

210 R0U:4 1179 

220 C0L:3 1152 . 

230 Z21l:'?:C0L0RS t ANSUER:VA 

LUE" 1167 

240 S0SUB 6000 1215 

2S0 60SUB S000 1 235 

260 REM CLEAR OLD ANSWER (VA 

LUE) 1039 

270 CALL HCHAR(3,3,32,20)I16 
9 

280' CALL HCHAR<3,3,32,20)116 
9 

290 S0SUB 3000 1019 
300 60SUB 8000 1175 
310 60SUB 7000 1195 
320 G0SUB 8000 1175 
330 IF FLA6:1 THEN 200 1151 
340 m:i 1179 
350 C0L-.3 1152 

360 221$: a ?:VALUE,ANSUER:C0L 
0RS* ! 167 

370 G0SUB 6000 1215 
380 60SUB 6000 1215 
390 60SUB 5000 1235 
400 60SUB 7000 1195 
410 REN CLEAR OLD ANSWER (BA 
NDS I VERTICAL LABELS) 1165 
420 CALL C0L0R(10,1, 1)1219 
430 CALL C0L0R( 12,1 ,1)1221 
440 CALL C0L0R(13,1,1)1222 
4S0 CALL C0L0R(14, 1,1)1223 
460 CALL VCHAR(14,10,32,6)12 
36 

470 CALL VCHARU4, 13,32,6)12 
39 

430 CALL VCHAR(14,16,32,6)!2 
42 

490 CALL VCHARU4, 19,32,6)12 
45 

500 G0SUB 8000 1175 
510 60SUB 3000 1019 
520 S0SUB 8000 1175 
530 60T0 200 1023 
990 STOP 1152 



1000 REM IHHfttHHHBHI /y 
1174 

1010 REN * INITIALIZATION * 
1118 

1020 REM » LOAD PREFERRED » 
1045 

1030 REM » VALUES OF * 
1115 

1040 REM * RESISTORS * 
1188 

1050 REN IIHIHHIIHIHH 

1174 

1070 FLA6-.1 1210 

1080 FOR 1:1 TO 20 1106 

1090 READ R(I)11S9 

1100 R(lt20):10»R(l)!169 

1110 RU+40):100*R(I)1220 

1120 R(H60):1000*R(I)!015 

1130 R(I+80):1E4*R(I)!249 

1140 RU*100):1ES*RU)1036 

1150 RU*120):1E6*RU)!039 

1160 RU+140):1E7*R(!)!042 

1170 REN USE VALUES TO 22 ME 

60HM:R(148) 1056 

1180 NEXT I 1223 

1190 DATA 1,1.1,1.2,1.4,1.5 

1205 

1200 DATA 1.8,2,2.2,2.4,2.7 
1218 

1210 DATA 3,3.3,3.6,3.9,4.7 
1229 

1220 DATA 5.1,6.8,7.5,8.2,9. 

1 1080 

1230 FOR 1:1 TO 3 1058 

1240 READ T0Lt(l),T0L(l),T0L 

C0L(1) 1238 

1250 NEXT I 1223 

1260 DATA "SOLD B I 5,12, , 8IL 

VERVO,^' ",20, t 105 

7 

1500 REM CONSTRUCT RESISTOR 
1026 

1510 REM DEFINE COLOR BAND 8 
ROUPS (057 

1520 RESTORE 1560 1123 
1530 FOR 1:0 TO 9 1063 
1540 READ C0LORt(I),C0LR(D! 
137 

1550 NEXT 1 1223 
1560 DATA 'BLACK ",2,* BROUN 
•,11,'RED »,7,"0RAN6E',V 
YELL0U",12 1045 
1570 DATA "6REEN ",13,'BLUE 
•,8, , PURPLE',14,'6REY ',15 
.•WHITE ",16 1135 
1580 REM INITIAL BANDS TRANS 
PARENT 1190 

1590 CALL C0L0RU0,!, 1)1219 
1600 CALL C0LOR(12,l,l)1221 
1610 CALL C0L0R(13,1, 1)1222 
1620 CALL C0L0RU4, 1,1) 1223 
1630 REM ORAtf RESISTOR 1131 



16X0 CALL CLEAR 1209 

16S0 CALL CHAR(U2,'000000FF 

FFO00OOO')!053 

IS SO CALL CHAR( i 13,'COCOCOCO 

C0C0C0C0')!118 

1670 CALL CHAR( 114 ,'00000000 

OCO0FFFF')!055 

1680 CALL CHAR(115,»FFFF000O 

00000000')!OS6 

1690 CALL CKAR(116,'O3O303O3 

03030303')!249 

1700 CALt CHARU17,M83C7EFF 

1818MlV)!109 

1710 CALL HCHAR(8,3,U2,5)!1 
76 

1720 CALL VCHAR(6,8,U3,S)!1 
94 

1730 CALL HCHAR(S,8, 114,17)1 
232 

1740 CALL HCHARdl ,8,115,17) 
! 023 

1750 CALL VCHAR(6,24,U6,5)! 
244 

1760 CALL HCHARO ,25 ,112,4)1 
228 

1770 CALL CHARU20,'FFFFFFFF 

FFFFFFFF')!06O 

1780 CALL CHAR(128,'FFFFFFFF 

FFFFFFFF')!068 

1790 CALL CHAR(136,'FFFFFFFF 

FFFFFFFF')I067 

1800 CALL CHAR(104,»FFFFFFFF. 

FFFFFFFF')1062 

1810 CALL VCHAR(6, 10, 120,5)1 

234 

1820 CALL VCHAR(6, 13, 123,5)! 
245 

1830 CALL VCHAR(6, 16,136,5)1 
247 

1840 CALL VCHAR(6 ,19,104 ,5) I 
245 

18S0 CALL VCHARU2, 10, 117)11 
09 

1860 CALL VCHAR(12,13,!17)!1 
12 

1970 CALL VCHARU2, 16, 117)11 
IS 

1880 CALL VCHAR(12,19,117)!1 
13 

1890 221«=»PRESS ANY KEY TO 
CONTINUE* ! 141 
1900 R0V-.20 !226 
1910 C0L:4 1 153 
1920 60SUB 6000 ! 2 1 5 
1930 ZZl$:"PRESS (ENTER) TO 
CHANGE' 1211 
1940 R0U:21 ! 227 
1950 60SUB 6000 ! 21 5 
1960 ZZ1$:'0RDER OF DISPLAY" 
!005 

1970 R0U:22 ! 228 
1980 60SUB 6000 1215 



1990 22tf:'PRE$S (S> TO EXIT 
• 1054 

2000 R0U:23 ! 229 

2010 60SUB 6000 ! 215 

2020 RETURN 1136 

3000 REN DEFINE BANDS & LABE 

LS 1006 

3010 REN COLOR BANDS ! 193 
3020 CALL C0L0R(10,T0LC0L(DI 
G1T4) 9 8) ! 199 

3030 CALL COLOR(12,C0LR(DI6I 
Tl),8)!041 

3040 CALL C0L0R(13,C0LR(D16I 
72) ,8) ! 043 

3050 IF DI6IT3(0 THEN 3080 I 
109 

3060 CALL C0L0R(U,C0LR(D161 
T3),8)1045 
3070 60T0 3090 1109 
3080 CALL C0L0R(14, 11,8)1024 
3090 REN GET RESISTOR LABELS 
1008 

3100 LABELl*:C0L0Rt(DI6lTl)l 
037 

3110 LABEL2$=C0L0R$(DI61T2)1 
039 

3120 IF DIGIT3<0 THEN 3150 I 
179 

3130 LABEL3$:C0L0R$(DI6113)I 
041 

3140 60T0 3160 1179 
3150 LABEL3$:"60LD 1 1168 
3160 LABEL4t:T0L$(0IGIT4)!15 
5 

4000 REN PRINTS COLOR LABELS 
1012 

4010 FOR LL:1 TO LEN( LABEL 1$ 
) 1 132 

4020 LL1$:SE6$(LABEIH,LL,1) 
1157 

4030 CALL HCHARU3*LL,10,ASC 

(LL1$))!139 

4040 NEXT LL 1046 

4050 FOR LL:1 TO LEMLABEL2* 

> 1133 

4060 LL2$:SE6$(LABEL2$,LL,1) 
1159 

4070 CALL HCHAR(13+LL,13,ASC 

(LL2$))I143 

4080 NEXT LL !046 

4090 FOR LL:1 TO LEN(LABEL3$ 

)!134 

4100 LL3$:SEG$(LABEL3$,LL,1) 
1161 

4110 CALL HCHAR(13+LL,16,ASC 

(LL3$))!147 

4120 NEXT LL ! 046 

4130 FOR LL:1 TO LEN(LABEL4$ 

)!135 

4140 LL4$:SEG$(LABEL4$,LL,l) 
1163 

4150 CALL HCHARU3fLL,19,ASC 

<LL4$))!151 

4160 NEXT LL 1046 



4170 RETURN » 136 

5000 REM RANDON SELECT RESIS 

TOR !246 

5010 RANDOMIZE ! 149 

5020 RR:R(INT(148*RND+1))!02 

6 

5030 RR10:10*RR !085 

5040 D16IT3:INT(L06(RR)/L0G< 

10))-1 » 103 

5050 DIG1T1:VAL(SE6$(STR$(RR 
),1,1))!050 

5060 DI6iT2:VAL(SEGt(STRt(RR 
10) l 2,l))!149 

5070 REN 0161T 4:T0LERANCE I 
089 

5080 REN i:G0LD,51 2--SILVER 
! 056 

5090 REN 101 3-NOSTRIPE,20X 
1247 

5100 DIGIT4:INT(2.2*RNDM ! 
081 

5110 RETURN 1136 

6000 REN HORIZONTAL DISPLAY 

RTN 1014 

6010 FOR LL:1 TO LEN(Z21$)!2 
16 

6020 U1$:SEG$(2Z1$,LL,1)!24 
1 

6030 CALL HCHAR(R0V,C0L+LL-1 

-,ASC(LL1$))I19S 

6040 NEXT LL 1046 

6050 RETURN 1135 

7000 REN VALUE DISPLAY RTN ! 

129 

7010 REN CLEAR PREVIOUS 1190 
7020 REN DISPLAY 1208 
7030 CALL HCHAR(3,3,32,20)!1 
69 

7040 REN HAKE f OR - SYMBOL 
1039 

7050 REN OUT OF V 1046 
7060 CALL CHAR(99 f '1818FFFFl 
618FFFFM1142 

7070 ON DI61T3+2 60T0 7080,7 
100,7120,7140,7160,7180,7200 
,7220 1249 

7080 2ZI$:$TR$(D1G1TM'.'1$ 

TR$(D1GIT2)&' OHNS c '4STRIC 

T0LCD1G1T4>)&* V 1074 

7090 GOTO 7230 1169 

7100 2Ztt:STR*(DI6ITl)&STR$( 

DI6IT2)i' OHHS c 'iSTR$(TOL( 

DIGIT4) )i» I' 1156 

7110 GOTO 7230 1169 

7120 2Z1$:STR$(D1GITMSTR$( 

0I81T2)l'O OHNS c '&$TR$(TOL 

(D1G1T4W V !205 

7130 GOTO 7230 1169 

7140 2Z1$:STR$(DI61TM'.'&S 

TR$(D16IT2)&' KOHMS c -&STR$ 

U0L(DI61T4M' V 1150 

7150 60T0 7230 1169 



7160 2Zlt:STR$(016ITl)&STRt( 

OI61T2>Si* KOHMS c "4STRKT0L 

(DIGlT4))i' V !232 

7170 GOTO 7230 1169 

7180 221$:$TR$<D1G1TM$TR$( 

DIGIT2)!r'0 KOHMS c '4STRKT0 

L(DIGIT4))4' V !025 

7190 GOTO 7230 ! 169 

7200 2Zl$:$TR$(DIGITMVi$ 

TR$(016IT2)i* HEGOHNS c '4ST 

R*(T0L(D161T4M' 1' !038 

7210 GOTO 7230 ! 169 

7220 ZZ1$:STR$(DI6IT1)&STR(( 

DieiT2)&* MEGOHHS c »4STR*(T 

OL(0I61T4>)&* V 1120 

7230 R0tf:3 ! 173 

7240 C0L=3 1152 

7250 60SUB 6000 1215 

7260 RETURN 1135 

8000 REN KEY ENTRY RTN 1105 

8010 CALL SOUND(100,440,0)!1 

26 

8020 CALL KEY(0,K,S)I187 
8030 IF S:0 THEN 8020 1122 
8040 CALL S0UNO( 100,880,0)! I 
34 

8050 IF K:ASC('S')THEN 990 I 
075 

8060 REN TEST FOR "(ENTER)' 
1093 

8070 IF K013 THEN 8110 1194 
8080 FLASr-FLAQ 1180 
8090 CALL S0UND(20O,44O,O,5S 
0,0)1067 

8100 REN REVERSE ORDER 1114 
8110 RETURN 1136 
9000 REN ENTRY SCREEN DISPLA 
Y 1194 

9010 CALL CLEAR 1209 

9020 CALL CHARC91 182442810 

0000000') 1208 

9030 CALL CHAR(92, a 000000008 
1422418') 1209 

9040 FOR CCL:1 TO 31 STEP 2 
1174 

9050 CALL VCHAR(1 I C0L,91,24) 
1160 

9060 CALL VCHAR(1,C0L+1,92,2 
4)! 092 

9070 NEXT COL 1116 

9080 R0V:8 1183 

9090 C0L:4 1153 

9100 2Zlf:'»»R E S I S T 

R S«»' 1111 

9110 60SUB 6000 1215 

9120 R0V:12 !227 

9130 ZZU:' BY HAROLD HOY 

T ' 1125 

9140 GOSUB 6000 1215 

9150 R0V-.16 1231 

9160 ZZU:' FEBRUARY, 1985 

» 1039 
9170 GOSUB 6000 1215 
9180 RETURN 1136 



atld 
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GENEALOGY AND THE DATA BASE 



SUGGESTED FILE STRUCTURE 



I recently had the opportunity to oeet several genealogist that 
*ero TI-99/4A owners. As yon mid expect, our conversation soon 
becafli that of research, and ho* to get the cooputer to do soie of the 
edious work that needs to bt done. This would leave us <iore tine for 
the actual research. To our disaay no one knew of a TI prograa that 
*ould do what wt wanted. I then told then what I havi dono to take iy 
research easier. Iu now tilling you. 

tv Wh ' ri ?? St of thl 6lnialo W prograw fail is in tht data base. 
They use tht faaily groupsheet as tht teaplata for tht data bast. 1 

has aadt t this far ht no longer needs a data bast, i Kept for 

u ?' th V*!* baSi lS n " 4td ,s " hen Sflrtln 9 "* 
through vital records for cooion denoainators. Many faailles havt tht 

mm Mil passed on generation after generation. It often becoaes 
difficult to decipher ont froa tht other but could bt calculated from 
comparing vital records. Tht Horaons understand this therefore, tht 
U terday Saints CFI data bast. Unfortunately, this prograa is not as 
yet available for tht TI-99/4A, 

It has long bttn sy opinion that na ONE prograa would do all that 
I wanted to do with ay genealogy, but that TW would. What you really 
JJ^ LJ^od word processor (in our cast TI-WITER our ont of tht 

/1T > an , 4 a * 00<l 4iU Ust ' Thf P roblM th «" what 
a a good da a base for tht Tl? Good is a rtlativt t*r<i. What is good 

t'LVII not * l **y« WW «• «MtW«oj list. Hert is what 

I used as ay criteria! 

tl EASS OF USS - Any prograa that I use aust bt user friendly. I 
do not want to wastt prtclous tfat playing with, or wading t rough 

do all that it claias. Thtra Is nothing worst than transviring all 
your data o then find out it will not do what was tipected. It needs 
to bt a flat-saving device, not a fiat-taking devlct. Tht Genealogist 

Z ill J W ) l * ,,M 4o,n * rH,arch - " " *"* wvt 
hia tlat, ht will not wastt tht tint to ust it. 

,h i ffix"^ f*?^ " Tht pro * rai sh0tfld bi * bli ta and sort 
all lelds. A subsort would bt Met.- That way when a surnaat is 

duplicated it would go to tht neit field and alaphabeti red by that 

field, and so on, auch tht way wt wert taught in our childhood. If a 

subsort is not posssiblt field length should bt a ainioua of 23 

SSifJ I?;-?!! MU " UIW U « </f,M * mm *lphabttlMtlon. PROGRAM 
SHOULD BE ABU TO ACCEPT MOT FXEUS (approi. 13) . 

farM t 8 ^^ \ K'*™ 5hflUld Pflnt '» PWE AND REPORT 
foaat. Report foraat aakes for easy referenct and (takes duplication 
? « b vious. Pagt foraat for thost who likt to enter their data on 
In<ei cards. PRINTER DEVICE NAME should bt available froa a it J! 
screen and not eabedded in tht prograa! If this is not possiblt lint 

» ! J! T! 1 "J! f \ tt,,ri,,n * thM « f»lt to the printer 

^ 1,1 thert d8ift 9 ^caust there is a 

hand-shaking problea in tht prograa. 

14 SAVE FILE - Of course this is a fust for any data base. It 
mli bt nict, however, if tht files could bt saved to work with other 

c atettTto fii* 13 * ^ bUt CW " b * hlIpful in a<Mln,J no,ea or 



FIELD l - SURNAME 

FIELD 2 - FIRSTNAME 

FIELD 3 - FATHER 

FIELD 4 - MOTHER 

FIELD 3 - SPOUSE 

FIELD 6 - SEX 

FIELD 7 - TYPE (of records) 

FIELD 8 - EVENT DATE <♦) 

FIELD 9 - EVENT PLACE 

FIELD 10- SOURCE (of referenct *) 

FIELD U- OPEN FIELD (*) 



FttlU RBORO FllC 
USIW P,R,K. HOOUU 
by Jan Knapp 

Here's a little soaething for tht Senealogical Buff or 
just keeping tht faaily records. The filt structure is one 
siailar to that used at the IDS library systea, based in 
Salt Lake City. 1 havt found the P.R.K. search capabilities 
a real pain saver, since it will search and sort in ail 12 
fields. 

Like all program it has it's Hal tat ions. You will 
need to set up your own abrevlations for the type of record 
found. Ky personal choice (st B*BIRTHf C»CmiSTENED', 
JHJEATHl «=«ARRIA6E| IttENSUSf Bl«BI06RAPHY| F«f ArtlLY 
<NWTION| DV*OIV0RCE| ML^ILITARYj BR»BURIEDj 
wWEICTARY. This prograa is liaited in sizt I suggest that 
several files should bt nade, and kept under the base 
surnaat of that file, if your records ciceed pages allowed. 

I havt entered two eitra field for possiblt footnotes, 
additional ferriages, etc. Although, 1 personally use this 
prograa for 6enealogy It can bt used to keep faaily events 
and aeabers current. 



FILE STRUCTURE 





ITEM 


TYPE 


WIDTH- 


DEC 


1 


SURNAME 


CHAR 


IS 





2 


F/NAME 


CHAR 


15 





3 


SEX 


CHAR 


2 





4 


TYPE 


CHAR 


2 





5 


FATHER 


CHAR 


13 





6 


MOTHER 


CHAR 


15 





7 


SPOUSE 


CHAR 


15 





8 


E/DATE 


CHAR 


10 





9 


E/ PLACE 


CHAR 


15 





10 


SOURCE 


CHAR 


15 





11 


MISC. 


CHAR 


15 
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* TEMPLATES * 

* by Jan Knapp * 

OR...KOW TO tW(E YOUR OWN FILL IN ThC BLANK. Have you 
ever found yourself typing the sane aaterial over and over 
again and dished that you had a ford that all you had to do 
was load it up and fill in the blanks? Hell you can. I case 
across this problem with ny Genealogy. It seemed that all I 
ever did was type. If I wanted to send a copy of oy 
groupsheet* or change some information on it I had to type it 
all over. I had to use a regular typewriter or hand write 
the material. This constant duplication got taa down. I 
decided that enough was enough. You see I'm basically lazy 
and will find any short cut I can. So I made tiy own Fanily 
Group Sheet on the TI-WUTER » and a whole new world opened 
up! I can not* load ey file, fill in the blanks* change 
siater i air and save it again for a later date if necessary. 
Nov when I send ny fanily sheet to someone all I do is load 
up the program and let the printer do the rest. Sound like 
something you could use? Then keep reading. 

Now cones the hard part. Why is it that the sisplest 
things to do are the hardest to eiplain? Well here goes. 
Your TI-WUTER* if you're using standard paper and normal 
print allows you 80 characters* or spaces* across and about 
6£ down. The default on TI-NRITER is set on 66. For your 
purposes I suggest less than this. There should be sons, 
spacing at the top and bo t too for appear ence* 64 is a better' 
mifiber to work with. Decide what aaterial you wish to FORM* 
naybe you already have a for a that you are using. If not 
imagine a grid 80 spaces across and 64 lines down (graph 
paper works great). This will allow you 9*120 posssible 
chracters to work with* unless you set margins. The worst 
part is figuring the proper amount of spaces for the blanks. 
Proper spacing is the hardest part of the whole process. 
REMEMBER!!! When working with TEMPLATES leave the 
WORD WRAPUhe s olid cursor) OFF! Word Wrap has some built-lns 
that you don't want. Now you have your holloa cursor ON* 
your tabs set to your needs* and are ready to go. After you 
have all the needed fill in eaterail done* and you have some 
left over space* you can leave the rest for NOTES* or 
COMMENTS*. By putting this naterial at the bottom it will 
allow you to turn on your word wrap for lengthly remarks 
(much easier on yourself). 

Now you have your TEMPLATE made to your satisfaction* 
SAVE IT . If you are using DISK reoeaber never to duplicate 
names* as you will erase a file. Give your Template a name 
of it's own* the files another. Nov type in your 
information. CAUTION! ! ! Avoid insert* delete* and other 
TI-WRITER commands if you can* as these could possibly 
reformat your TEMPLATE beyond recognition. If you da wish to 
insert and delete remember that they nust balance. It may 
seem like a lot of work* but remember you only have to do it 
ONCE . After you've finished your TEMPLATE save it if you 
wish (under a new name) • Reload your TEMPLATE and you're 
ready for the next. This is much easier than it appears. 



J^O^C J^C 

* X BASIC PROGRAM TIP * 

* by Harold Hoyt >* 

Hire is a handy little XBASIC programing tip. Lots of 
programmers put their program identification in line 100 as a 
REMark. Six Months later* listing the program* it answers 
your questions. What the heck is this? When did I write it? 
Why did I write it? 

Recently* I've been pulling a little trick in XBASIC 
that the more I do it* the handier it seems. I add another 
program line* so that the beginning of tiy program looks like 
this: 

I '.SAVE DSK1.PR0GRAMNAM 

100 '.Prog 'PROOWMUV H Hoyt 7/28/87 Demonstration Prog 

Note all of the 10 characters in the program name can be 
used to truly describe the program. One of ny friends was 
using single letter program names because ha hated the eitra 
typing. 

If you type line 100 prograti description data once* and 
then hit <ENTER> followed by <FCTN 8> (REDO)* you can edit 
out 00 in 100 to create line 1 and further edit it to create 
SAVE DSK1.PRC&RAWAM and delete the rest of the stuff. By 
itself* this wouldn't be worth the trouble* but just see what 
happens next. 

After line 1 has been properly <ENTERED>* hit <FCTN 
REDO) again and then <FCTN DELETE) to eat the line I* space 
and !. What remains is SAVE DSK1.PR06RAMNAM in the screen 
buffer. Just hit <ENTER> and the program is automatically 
saved. This saves so much typing that it encourages you to 
save program pieces more frequently* reducing the loss in 
case of a program crash. 

TBHI»CAT* io SXgMP|.B 



I 



I 

30 1 



I I 

«2 • 

I 

! « 

U ' 



hftflfilN* «.CT AT rt AMO *-». t.ie« Stf M LOCATION* 20.40. 

«•>. ur« t»#uent ivi« «.i*»«o •* <i/WH. 
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<Z3 

* PRK FILE STRUCTURE % 
FILE STRUCTURE 

NAMES 87 INDEX 

DATE l 1/8/88 

ITEMS/PAGE* 6 

PAGES USED I 77 

PAGES LEFTi 59 

FILE STRUCTURE 
ITEM TYPE WIDTH DEC 



1 TITLE OF 

2 ARTICLE 

3 ISSUE 

4 AUTHOR 
3 TYPE 

6 REQUIRED 



CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 



IS 
15 
4 
IS 

to 

10 



O 
O 
O 
O 
O 
O 



compile the i¥b? rl structure used to 
letters. It Tb ve^ ter Br,d 3 e 
search and "or? Tn anT^'i* and ean 
«o» sort alphlb {? c : i l y 6 ^'^^- 1 «=« 
Author* etc m„««. 7 y y Reticle, 

♦hat p *»* '™p°r*»««y to M 

format. HI ♦h*^?^ 
Report Generator) it i„ ' 3 (p « r »onal 
9° to the printers a 8 T g Cam ?: a , Pea<1 >' *° 
be as pretty «« i M 7 Xt mav n »* 

TI-WRITER) but much «a«? rS <d ° ne °" 
teU by the m™ *tr ZtVnrZ' ♦ V ° U CM 
-re than enough ^ J" J', was 



Rom op u<3 

TO ALL OF YOU 
AVE ^ HAPPY 



THE FORMl DABUe FORMATER 
by Jan Knapp 

* TEXT FORMATTER * FUl 
ENTER Input FILENAME: 
BSK2. 

owe feared I »J J *»•/««• not as for.ifcoi, as t had 

m p.."S!U: e , r r; r a; ir a,,ef 1 S 

»9*ln? What Md< It'doto It it «u«» h. em " C ° 5l,i " " 
since it wulto't let ae ! . u ? ,tl ""9 rMll y 

nave o ee „ gmtfll , ~ «* «*" » * one toy a „„ i 

that (or., ourl «a" * ,w if *T " rt *• M in 
talent, a My JJf * „' 4 , ,eU,i,nshi >' 1 »» tat a 9 o 

•« out right tuTl, T PWS,H « " » «'*'t 

fr.at.er. W, pr ,„* ,,t tf4sh C0ttfS8 " 

on I teem LrnniV^ ? Fr ' a theft 

•tightly so«e IZ L ' ' ' ' 9lM fil " W alters 

2?--«-srsv: : ciiZ- f cef,iiB 

and can be ovepcofle bv »vni M jransii terat* mm<t% 
^ «osti y -m^J&SC^ ^ - 4 & ' 
yo«r «in<f befora it prints. FCTN 9 Jii If T chan 9 e 
win nenu. If it ij. . ? wiU take V™ back to the 

stop the *l.t7^ 4 wiiT 

I hope that this hi Tfl ll L ?* m Y V* the fflain 06n «. 
FORMATTINT, f t! nas al leviated some of y 0U r fears of 
JWrmiNG, I hope you will gi ve it a try. 
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JOYSTICK ADAPTER 
by Rich ftehfeidt 



Do 



you have some Atari Joysticks setting around doing nothinq? 



Would you like to use them on the TI 99/4A ? Okay, here's 



i t 



This came from Compute Magazine? September 1933, and it 



way to do 
works ok. 



Here' s a par t list: 

10 ea 914 Diodes RS 276-1 122. 

1 ea Female Connector RS 276-1537 

2 ea Male Connector RS 276-1537 
1 Small Box RS 270-220 



TO TI CONSOLE 




FEMALE 
CONNECTOR 
TI 

N.C.= NO CONNECTION 



#3 

1 UP 

2 DOWN . 
^3 LEFT 

> 4 RIGHT 
5 N.C. 

^6 FIRE 
7 N.C. 
>3 RETURN 
9 N.C. 

#A 
1 UP 
^2 DOWN 
^3 LEFT 

4 RIGHT 

5 N.C. ' 

> 6 FIRE 
7 N.C. 

»8 RETURN 
9 N.C. 



2 MALE CONNECTOR: 
TO JOY STICKS 



CALENDAR PROGRAM 
Reviewed By Phil Storll 
Typed By Cyndy E. 

Calendar is one of those programs that no one should be 
without. With Calendar you can find out which day any Dat* 
of the month falls on the Gregorian calendar system in 
worldwide use today. It lets you create your own data 
file. Each data file can hold up to fifty Dates. It also 
shows you Holidays such as Labor Day, etc. Calendar 
requires Extended Basic. 

This program is available through BeeJay Funware out of 
Denver and I will give you their phone number. I feel that 
I should not print their phone number without th*ir 
perm i ss i on . 
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BUILD YOUR OWN DUAL CASSETTE CABLE 
b Y R*ch Od^jdAXs 

Here is wireing for a TI Dual Cassette Cable* if you are in the 
building mood again. If you want a single cassette leave out # cable 



1 

2 
6 
7 

8 
9 

5 
3 

5 
3 



T 



f 



f 



£30 



CASSETTE CONTROL #1 



CASSETTE CONTROL #2 



n BLACK 

j r l Q SPKR OUT FROM CASSETTE #1 



IC INPUT TO CASSETTE #1 



RED 



© MIC INPUT TO CASSETTE 



#2 



2 RED - RS 274-287 MINI PLUG 

3 BLACK - RS 274-287 MINE PLUG 

2 BLACK - RS 274-289 3/32 SUBMINI PLUG 
1 9PIN FEMALE RS 276-1538 D TYPE 
1 HOOD RS 276-1539 

1 MINIATURE WITH SPIRAL WRAP SHIELD RS-278-752 



****** COLOR BLEND ***** * 

If you want pastel colors in your programs* make every other dot in 
your CHAR a one or a zero and then call the background color to be 
white (16). The program below will change the cyan color to a pastel 
shade 

90 CALL SCREEN (16) 
100 CALL COLOR (1,8, 16) 

110 CALL CHAR (32, "55AA55AA55AA55AA" ) 
120 CALL CLEAR 
130 GOTO 130 

Try also 14, 12, 10, and 2 as the second number in line 100 for other 
colors. John Johnson, (Cedar Valey 99'ers Users Group) 
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lAftllillllllfailliltiililiilislfiAiiliiiitif tA* 

^1^^*^S^ ^1^^I^#S'»^I**S' ^l^^S^ ^S^ ^^V^^V^^V 

* TECTIP 1 * 
>h by Harold Hoyt * 

* and *** 
** Gene Breer »* . 

^^C)^C 3J^C 

We recently connected an 1811 Qumetrak OS/DO disk drive 
in place of the SS/DD Shugart that we had been using for more 
than a year without having any probleos. We had used a 3 way 
connector to attach the PE box power supply to the external 
drive. It is supposed to be OK to do this if you art using 
two "low power" half height drives instead of the older 
original equipment drives that use a lot of current. When we 
accesed the drive to test 1 1> the PE box power supply was 
unable to supply enough current to operate the drive and the 
file READ aborted* the program to got lost and the non 
volital RAN disk files became vol i tale and were lost, and had 
to be reloaded. 

At this paint, we felt that it was a good idea ts design 
a test fiiture to measure the power requiresents of a disk 
drive. The design specifications we decided on that was easy 
to buildi ineipensive and easy to use and understand. Unlike- 
siost hardware? it would be used only once in a while* when 
setting up a system. Us purchased a drive expansion power 
cable and a drive power cable with wires attached. We could 
have just as easily started out with just the connectors* 
wire* inserts and a crisping tool* but it seemed easier this 
way. . ■ 

Fig. 1 shows the result of our efforts. A male power 
connector is wired to a test fixture* which has 0.1 oh* 
resistors used as astir shunts in the +5 volt and +12 volt , 
busses. The electric current requirement of the drives nay 
be monitored by measuring the voltage drop across these 
resistors. Having such a low value of resistance allows 
current monitoring with negligible effect on the disk drive 
power voltages. Even at 1 ampere load current* the voltage 
drop is only 0.1 volt, yet connecting an inexpensive pocket 
voltmeter with a 250 dillivolt range across the resistors 
allows reading up to 2.3 amperes since by onus law* each 
oillivolt drop across a 0.1 ohm resistor is caused by 10 
mi Hi anperes of current flowing through it. A low cost 
pocket volt fie ter can often be obtained in the $20 range from 
places like Radio Shack. If a calibrated OC coupled 
oscilloscope with a 200 millivolt per centimeter deflection 
sensitivity is available, the transient performance of the 
power supply can be aonitored. A 10 ca vertical deflection 
would be 2 anperes. 

We added a range switch and range resistors so that a 1 
ailliampere meter aoveaent with 43 ohms internal resistance 
will be properly calibrated to read 3 volts full scale on the 
4*3 volt bus, 0.3 anperes full scale* IS volts full scale on 
the +12 volt bus and 0.3 amperes full scale. When the 
Qume/IBM drive stepper motor was operating* the scale was 
pinned on the 12 volt current monitor. A DVtl showed an 
average current of 0.73 amperes on the 12 volt supply. 




Foot.*. <|{£?£n- 




12.V|bt*«JrX*4 



Ryder* 



\$ b> U Oft 4r 



To 
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bfe lit lift %W sAf i^ %^ +±* «A# 

T* • J ** I • T* ^^*^r* T* T' 

* TECTIP 2 * 

* by Harold Hoyt * 

* and >* 

* Gene Breer >* 

Gini hit b«tn coli feting TI/^MA cotnputtra for his 
rtlitivti and hlMtlf. Thi Tl aakii in tuiUtnt lyitti 
for people that are just beginning. The TI it the only 
one I know of that has a user friendly cassette input. 
Bene recently purchased several recorders on sale at a 
discount house* only to find that the cassette cable 
vouldn't run the recorder. For aost of us, this problea 
is Just a cteaory* our cassette recorders and tapes are 
gathering dust. 

The probllet is that about half of the Cassette 
recorders in the world have an opposite polarity froa 
the other half. The lotor control circuit in the 
console requires the snitch to have ♦ voltage on the 
center electrode. To correct the problesf people have 
ude an adapter that interchanges the inner and outer 
electrode on the end of the cassette no tor control wire. 
The one in the accorpnying drawing is i little fancier* 
in that it uses i jack with a witch so that the adapter 
can be left persanently in the cassette recorder. The 
computer seizes bo tor control only uhen the cassette 
control plug is inserted in the jack. 

Host people »after i while* don't even use the 
fiotor control. Som people don't even have the aotor 
control input on their recorders. They leave the aotor 
control wire hanging and oanually conrol the recorder 
sing the screen proapts to guide nanual operation of 
the play and record functions. 

*********%**********^ 

* MOUNT A "LED" ON SHU66ART MGD#SA200 DRIVE * 

* by Millard Robinson * 
*******************^ 

1. Mount LED in desired position on front panel of disk drive. 
Note* Due to the various types and sizes of LED's available* It Is 

impossible to fit a discription for mounting each. I recommend Radio 
Shacks LED cat* 276-018. A word of caution when drilling the hole in 
the front panel* be sure not to puncture and damage disk drive parts* 
and the area is clear enough for connecting wires. 

2. Connect wires to LEO. It is recommended to obtain a plug tha 
will slide onto the LED leads* but of you're good at soldering* you can 
solder a small gauge wire to each lead* being careful by heat sinking 
to keep from burning out the LED while soldering. 

3. Connect other end of wire to J7 on the rear of the disk drive. 
J7 is located just to the left of pin 34 of the 34 pin controller 
connector Jl. Again it is recommended to use a plug but if you want to 
solder it is O.K. The rear pin isthe negative lead (-) • 

4. Connect Disk Drive to the computer and operate. The LED 
should light while reading from or writing to th disk. If not try 
reversing the leads for proper polarity. No Dropping resistor is 
required* there is one built on the drive already. 



frp* Shack 




* ST. LOUIS 99ERS * 
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* TECTIP 3 * 

* by Harold Hoyt * 

* and * 

* Gene Breer ** 

Ho****:**:** *>♦« *** *t * 

We decided to take a real hard look at the PE Box 
power supply design when it refused to support 3 non-low 
current disk drives. trfe redrew the schematic to show the 
tiain conponents. Me analyzed the power transformer (-2 
version* aultiple input voltage tap type which seems to be 
the production model.) 

Our conclusions: The power supply should be 
redesigned. First* a power transformer of that size and 
type iron with proper utilization of it's windings should 
conservatively deliver 143 watts. Assuming a linear 
voltage regulator with loaded 16 volts DC, apportion 80 
watts to the 12 volt DC side at 3 amperes output and the 
rest for the 3 volt output and the unregulated *t6,+«,-l6 
buses for the PE Boi cards. 

We started on this project with the idea of 
eliminating external power supplies for outboard disk 
drives* or requiring the use of low power types in the 
half -height type. While we vert working on this project, 
an article in March 1983 MICROpendiua addressed a related 
problem. Or. Eric 'J. Bray, II. D. Added an additional 12 
volt regulator board and coaponents to the existing supply. 
He tapped into the existing board to use the unregulated 
+16 volt output. His reasoon for doing this was to add a 
Icy power hard disk drive to the systeo. Although we are 
only part way done in our redesign* we feel that a properly 
structured redesign could address the hard disk problem 
'oo. Is there a cost and performance premium paid for the 
low power rating on the hard disk? We suspect so. On the 
las is of limited information* Hard disks no tors requires 12 
VCC at 1 to 3 amperes depending on the model. Some systeos 
ji'.h hard disk power supplies designed in from the start 
boost the supply voltage on power up to get the disk >ip to 
derating speed faster. This would require special 
circuitry, uhich could be compatible with Or. 5ray'i idea 
that the power supply for the hard disk should be separate* 
but run from the sane transformer. 

In any event* we found the existing power supply 
severly flawed. We -'jondered why they don't break aore 
often! 1N4000 series 1 sop diodes should not be used in the 
14 volt capacitor input filter. One is tempted to remove 
ail power supply components* transformer and control board 
and start over. Our first at t tempt at breadboarding 
uncovered another problem. Sinply putting heavy duty 
components in was not enough. The breadboard worked fine* 
but no better current rating than the TI design! We felt - 
•hat je should stick to integrated circuit packaged 
regulators since they have built :n fault/failure 
:rotsction. Discrate zonoonent regulators, although easy 
•3 lestcn, so not have "'ail safe 1 ' built m. 4nv extra 
jffort required *o protect the exoensive load ccmoonents 
from selling is ■•orth the effort. IC regulators nave omit 
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in fold-back voltage-current safe area protection. Whoever 
designed the PE box power supply figured the transformer 
voltages vfong! the 16 volt unregulated voltage is actually 
ever 24 volts! All of this makes unneccesary heat on the 
individual PE box boards. Fortunately, aost of the boards 
•Jon't draw auch current anyways. 

We are presently working on a schoroe to reconnect 
primary and secondary windings on the PE box and adding a 
small transformer for the -16 volt unregulated supply. A 
lot of the capability of the transformer would be wasted by 
this scheme* but it seems a shame to replace such a big 
transformer. We would connect 120 volts to the 240 volt 
tap* running everything at half voltage, and then use 3/4 
of the secondary winding to supply about d amperes nax to 
the 16 volt "unregulated" bus and 12 volt regulated bus 
combination. The *8 volt unregulated will come from 
existing secondary taps. 

If all this seems complicated, we apologize. Some of 
the above is a really needed note to other hardware people 
out there to alert them to the possibility of improving the 
PE box power. We hope to have another progress report next 
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* TECTIP 4 * 
■¥ by Harold Hoyt •** 

* and * 
Gene Breer : ** 

This month we continue the analysis of the PE 8a x 
power supply design. We will havt more to say next month 
about hardware change options. For this month* we will, 
have "some changes that will reduce heat generated in the 
existing power supply board and next month, a replacement 
design for this board will be described. 

This advice is provided with the following caveat: 
IP YOU ARC 601K TO ATTBfT CHAN3INS TK WRINS IN 
YOUR COrWS?. GST SOtfi COfETQff HELP! W6 WILL NOT FEEL 
RESPONSIBLE FOR ANYONE MHO HAS A MELTDOWN IN THEIR 
COMPUTER! ME MILL FES. BA0» BUT NOT RESPONSIBLE! Change II 
will partially correct an error in the transformer input 
voltage, which is such too high. Just caking this change 
alone will reduce heat in the PE box to 120/140 of it's 
present value* a 14% reduction. If you havt high current 
disk drives and/or other peripheral equipment that require 
>iore power* building a heavy duty replacement potter supply 
board according to our instructions will help. 

Get a set of PE boi schematics. Remove all cards, 
including the "Fire Host" connector card. Dissassemblt the 
PE box by taking out all of tht little black screws that 
hold it together. Don't lost these! Where can you find 
replacements? Carefully slide tht front panel off* 
revealing tht power supply in tht left compartment* next to 
the fan. If you haven't dont so by now* replace the fan 
with a quieter one. Radio Shack cat #273-242 will do fine. - 
Trace tht power supply wiring* point by point using 
the schematic as a guide until you really know tht circuit. 
What wt art going to do is move tht 120 volt AC input to 
140 volt taps on tht transformer. The 140 volt taps are 
not narked* but can be figured out by you by subtracting 
240 volts (orange) froa 100 volts (black). This is 
accomplished by changing tht wires that connect tht 
transforoer to tht on-off switch. Tht red (115 volt tap) 
is dis-connected and tht orangt (240 volt tap) is connected 
in it's place, also the whitt (0 volt tap) is disconnected 
and the the black (100 volt tap) is connected in it's 
place. 

If you have tht oldtr PE box with tht push button 
on-off switch follow thest steps: 

1. Remove red jumper quick disconnect terminal 
(115/120 volt tap on transforoer) froa front panel switch. 
2. Connect orange (240 volt tap) wire froa transformer to 
switch quick disconnect terninal where the red wire was 
connected previously. 3. Connect red wire to the 
j ones-barrier strip teroinal vacated by the orange wire. 
4. Unsolder the white wire (0 volt tap on transformer) 
from the switch and cover with shrink sleeving to insulate 
it. 3. Solder an insulated juoper aire froa the black 
wire (100 volt tap) on the jones-barrier strip to the 
switch terainal that previously held the white wi re. If 



you have the newer F€ box with the rocker type on-off 
switch follow these steps: 

I. Remove the white wire (0 volt tap on transformer) 
froa the switch and cover the quick disconnect with shrink 
sleeving to insulate it. 2. remove the black wire (100 
volt tap) from the 1.25 ampere fuse block switch at the 
back of the console and connect it to the switch terminal 
vacated by the white wire. 3. Remove fuse and rotate it 
to the 240 volt position, which effectively disconnects the 
red(115/120 volt tap and connects the orange (240 volt tap) 
to the switch. 

If you have properly made the above changes the 120 
volt line will be connected to 140 volts of transformer 
winding. As a test of performance, the M6 volt- 
unregulated output which measures a little over -24 volts 
before the change will measure about -21 volts. Still not 
what the designer intended, but it's tht best we could do 
with the windings given us. 

If the fan connection is left on the 115/120 volt tap, 
tht actual fan voltage will be 93 volts, quite sufficient 
to run it* and the fan motor dissipation will also 
decreast. Fan motor speed and torqut may drop slightly, 
but tht fan moves more air than needed* even without the 
14X heat reduction resulting from tht changes. 

EDITOR'S NOTES 

See diagram on opposite page. 
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TiCHNOIMAK 

By Earl Raguse 
(Froi the Feb. '89 RON Newsletter) 

Soie people, especially governient eiployees and coiputer 
prograiiers, speak in a language which is a bit strange to 
the aediocr* Bind, like tine. The following are soie 
'tongue in cheek" exaiples. See if you can decipher thei. 
They are often heard sayings or technospeakingly "Ancient 
adages iepinging on ones otological appuratus with 
intenittent regularity'.. Veil, you get the idea) (If you 
ca't fugure thee out, answers listed on page 10.) 

1. Avian species of identical pi usage congregate. 

2. Freedoi fron encrustations of noxious substances is 
contigous to conforaity vith devine prescription. 

3. Pulcritude possesses solely cutaneous profundity. 

4. A superannuated canine is iuune to indoctrination in 
innovative maneuvers. 

5. Ululate not, over precipitated lacteal secretion. 

6. All that coruscates vith resplendence vill not assay 
auriferous. 

7. The existence of visible vapors frot ignited 
carbonaceous taterials conf ins conflageration. 

3. Mendicants are interdicted froi elective recipiency. 

9. Probity gratifies reflexively 

10. Kale cadavers are unyielding of fallacious testiiony. 

11. Inhabitants of vitreous edifaces ill-advisedly 
catapult petreous projectiles. 

12. Ergonoiia exclusive of diversion renders John a 
hebetudinous progeny. 

13. He who cachinates ultiiately, cachinates optitally. 

14. Abstenation froi speculatory undertaking precludes 
attainment. 

15. Missies of lingeous and nometalic lineral consistency 
have potential for fracturing ly osseous structure, but 
»alicious appelations are eternally innocous. 
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* TECTIP 5 * 

* by Harold Hoyt * 

* and * 

* Gene Breer * 
*#*#*###***#***#** 

This lonth we finalize the PE Box power supply redesign. 
A replaceient design for the PE box power supply board was 
shown last tonth and an extension of the idea suggested by 
Eric Bray, H.O. in the 3/88 HICROpendiui is described. 

This advice is provided with the following caveat: IF 
YOU ARE GOING TO ATTEMPT CHANGING THE WIRING IN YOUR COHP 
UTER, GET SOME COMPETENT KELP! UE WILL NOT FEEL RESPONSIBLE 
FOR ANYONE UHO HAS A MELTDOWN IN THEIR COMPUTER I UE WILL FEEL 
BAD, BUT NOT RESPONSIBLE! The transforier taps should be 
changed to the UO volt taps as suggested in TECTIP4. Refer 
to Fig. 1. 

The circuit is very sitilar to the TI version except 
that tany parts have been eliminated and others changed to 
heavy duty types for higher current operation. A 25 aipere 
SO PIV bridge replaces 2 fragile 1N4000 series rectifiers and 
2 Motorola 3 aip NRSOl's. Capacitor Filtering is increased. 
Calculate filter capacitor requi resents by 
I:C»0elta V/Oelta t. With Delta V:l Volt peak to peak ripple 
and 120 HZ Frequency I is 0.57 aipere. Assuie 2 volts ripple 
and 1 aipere load current for each 4700 uf . Proper design 
liniiizes heat in the regulator by having the worst case low 
voltage into the regulator at the ripple valley be 2 volts. 
The larger the ripple voltage, the tore voltage required to 
prevent regulator dropout. Very large filter capacitors 
increase the heat in the transforier due to pulse peak 
current increase, but the transforier can handle heat a lot 
better than the linear seiiconductor regulators. The bottoi 
line: Lots of filter capacitors are desirable in well 
designed linear power supplies. Changing the transforier 
connection to supply the proper voltage for the regulator 
input voltage worst case design, low line voltage, lax load 
current, ripple valley voltage 2 volts above desired output, 
results in luch ittproved eaxiiui load current before the 
built in overload protection shuts down the systei. 7800 
series and siiilar IC regulators protect theiselves against 
destruction by adjusting the current liait downward as the 
voltage across the series pass eleient is increased. Since 
the transforier has too euch secondary voltage the current 
limit is set luch lower than needed. 

Both the 12 volt and S volt regulators are changed to 3 
aapere types. Catalog shopping for 3 aep types shows less 
than a 1$ difference between these and the wispy 7800 series 
regulators. TO-3 cases and a Therialloy 6002B-2 heat sink. 
U.S" between lounting screw centers and 3/4" fins above the 
board can get rid of a lot of heat.) 

Ouplicate the 12 volt regulator sub-section if desired 
to squeeze an additional 2+ aiperes for a hard disk drive. 
Add an additional 4700 uf capacitor to the second board for 
every 2 auperes-of load expected. Put a 1000 uf capacitor on 
the output of the regulator to bypass output voltage 
transients. Put a ceraiic 0.1 uf bypass capacitor on both 
the input and output of any 10 regulator. 
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* TEC-TIP7 * 

* ALPHA-LOCK FIX * 

* by * 

* Harold Hoyt * 

* and * 

* Gene Breer * 

Many people get tired of telling their kids they have to release 
the ALPHA-LOCK if both Joysticks are used. A f ix has been around for 
some time where the ALPHA-LOCK may be in either position without 
affecting the joystick operation. A 1N914 or similar diode is placed 
in series with the ALPHA-LOCK key. A very good time to make this 
modification is when you are replacing a tired keyboard. 

The change is a low risk operation compared to other computer 
modifications, although WE STILL RECOMMEND GETTING HELP FROM SOMEONE 
HANDY WITH ELECTRONICS IF YOU ARE INSECURE. Make the change to the 
replacement keyboard. Do all soldering to this keyboard before 
attaching it to the computer. Then you won't have to worry about an 
ungrounded soldering iron zapping your system. Many of us have 
purchased keyboards from Radio Shack, their part # 277-1023. 

Stocks of this keyboard are spotty. Also, the keyboard was 
supplied by a bunch of different vendors and vary in quality from very 
good to very bad. If you are lucky, you can find original type 
keyboards with individual keys and gold plated switches. If you are 
unlucky, all you will find are poor quality pressure contact bubble 
switches that should wear out quickly and have a very spongy feel 
unsatisfactory to typists. Check out the keyboard action before you 
buy. 

The ALPHA-LOCK modification suggested requires adding a single 
diode to the keyboard. Since there is a variety of printed circuit 
layouts for the keyboard, it is hard to be specific about a physical 
description of where to place the diode. Refer to the key matrix 
schematic that comes with the Radio Shack keyboard, which is reproduced 
here with the diode penciled in. Check the connections to the keyboard 
with an ohmmeter to be certain that you know where the connector pins 
are. Some of these naughty people placed the marking stripe on the pin 
15 end rather than the pin 1 end. Cut the trace going to pin 6 
conveniently close to the connector. CTech notes purchased at the 
Chicago Fair suggest putting the diode in the connector cable, but that 
isn't rugged enough for me.) Solder the 1N914 diode cathode Cring or 
striped end) to the connector and the anode end to the cut trace. 
Install the modified keyboard, following CAVEMAN'S directions in the 
January newsletter. Check to see that you get upper case characters 
with the ALPHA-LOCK depressed and lower case with the ALPHA-LOCK in the 
"up" position. Run a test program (listing below) or a game to check 
that both joysticks totally ignore the ALPHA-LOCK key position. 

100 CALL JOYSTC 1, XI, YD 
110 CALL J0YSTC2.X2, Y2) 
120 PRINT X1;Y1;X2;Y2 
130 GOTO 100 
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cat. no. 277-1023 
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ALPHA-NUMERIC 
KEYBOARD 

Originally for Tl 99/4 Computer 
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A high-quality QWERTY keyboard with standard « ~ 
typewriter stagger format, electrically arranged in 
X-Y matrix. All keys SPST momentary contact 13*-** 
except for ALPHA LOCK, which is an alternate ir~** 
action switch. Electrical connections may be *5 
made to connector (AMP 1-640441-5) or directly ( x 
to PC board. fa e<* 
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Custom Packaged in USA for Radio Shack 

Tandy Corporation, Fort Worth, TX 76102 



